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= TAPE CLASS DRIVER 16-SEP-1984 01:01:11 VAX/VMS Macro v04-00 


rein SCY ENE TESS 
TAPE CLASS DRIVER D mike Bee ye UNIT CONTROL BLOCK OFFSETS 


pat oee’s space or 
DRIVER PROLOGUE AND DISPATCH TABLES (and UCB Initialization) 
DISK CLASS DRIVER FUNCTION DECISION TABLE 
Static Storage 
- pote Area Shared With Common Subroutines Module 

a> 


- Me ‘9 te Dey ce Type Conversion Table 
Controller sone alization Routine 
—** CONNEC 9 


T —18 PE ing 

2 UNIT_ONL 

Bens it apt, sree Conversion Routines 

AUTO_PACKACK = Perform automatic PACKACK for foreign tapes 
START 1/0 


START_NOP 

START _PACKACK 

PACKACK Support Routines 

START_UNLOAD and START _AVAILABLE 

Start WRITEOF, WRITEMARK, ERASETAPE, and DSE. 
Start REWIND. 

Start Space Records and Space Files. 

Start a SETCHAR or a SETMODE function 

Start SENSECHAR and SENSEMODE functions. 
START “aie and START_WRITEPBLK and START_WRITECHECK 
FUNCTION_EXI 

re-CONNECTION after vC error or failure 
TUSTMR = Class Driver Timeout Mechanism Routine 
TUSIDR = Class Driver Input Dispatch Routine 
Attention Message cregess ine 

- Process Unit Available Attention Message 

- Process Duplicate Unit Attention Message 

- Process Access Path Attention Message 
TUSDGDR = Data Gram Dispatch Routine 
INVALID_STS 

TU_UNSOCNT 
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; Robert Rappaport 16-June-1982 
TAPE CLASS DRIVER | 
MODIFIED BY: | 
V03-161 ROW0398 Ralph 0. Weber 21-JUL-1984 
3 Setup use of class Griver write-lock bit ~ ret DEVSTS. 
° | 
3 
° 
: 


v03-160 ROW0396 Ralph 0. Weber 21=JUL-1984 
Setup automatic detection of density. after an operation which 
moves the tape position off of the BOT. 


v03-159 ROW0395 Ralph 0. Weber 21-JUL-1984 
Make changes which setup ieormal"” MSCP command Cineout 
al ee thm before calls to DUTUSPOLL_FOR_UNITS a 

BR UNIT_ONLINE. Also setup use of DAP P CDRP. by both 

DU TUSPOLE _FOR “UNITS and BRING_UNIT_ONLINE. 

R 


v03-158 ROW0394 Weber 20-JUL-1984 

Remove DPT g> ORE “setting of ACL queue present bit in the ORB. 

This should * performance on devic ces which do not really 
n 0 


have an ACL queue their device protection ORB. 


vOs-157 ® Weber 20-JUL-1984 
te? -id to —* hy type translation —*8* entries for the 
Aya" TK50, and TAI. 


v03-156 ROW0387 Ralph 0. Weber 8-JUL-1984 
Setup use of DUTUSR CONN, LOOKUP and DUTUSDRAIN. CDDB_CDRPQ. 
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v03-155 ROW0369 G-JUL 1984 

Change evens SYNCH fe noe = MRESET/MSTAR A.. SCP servers and 
th Hi ng to happen. Cunte oe dire 3 nothing 
ever will N ppen in such cases. Pres ae ing direc ly y A. the 
DISCONNECT is the correct action. # ber ng done now so 
that it will no t be forgotten when * 9 if we make a tape 
MSCP server. 


v03-154 Rouo sieh 0 . Weber 22-JUN-1984 

Hy START -PACRAC o the on exclusive ——* online command 
s sent only the multihost controllers. for other controllers, 
ust sent an online. 


v03-153 ae 361 Ralph 0. Weber 5-MAY-1984 
7 yse oot new class driver common DAP processing in 
BuTU DODAP. The new routine is designed to eliminate multiple 
DAP threads which are known to crash systems. 


v03-152 ROW0354 ee 30-APR-1984 
Add setting for bev Nate iy DEVCHAR2 to indicate that tape 
class driver devices Use NODENAMESDDCN device names. 


v03-151 ROWO353 —* h 0. Weber 30-APR-1984 
Correct message type constant input to EAL St OGRE SSAGE from 
EMBSC_DM (for disks) to EMBSC_TM (for tapes). 


v03-150 ROW0350 Ralph 0. Weber 23-APR-1984 
Correct sere REAR, wi causing multiple ervpe shrougt 
with =, attendent buge ecks. First, clear 
CODBS$V_S NeCst m entry to DUSCONNECT ERR. Second, protect 
the SCSSUNSTAL LUC Toop in END _SINGLE_STREAM from possible 
connection failures during execution of the Loop. 


v03-149 LMP0237 L. Mark Pilant, 19-Apr-1984 11:25 
Initialize the template ORB. 


V03-148 ROW0347 Ralph 0. Weber 11-APR-1984 
Cause MT$SV_HWL to be cleared when tape is not write locked and 
whenever an AVAILABLE command is sent to the server. 


V03-147 ROW0339 Ralph 0. Weber 9-APR-1984 
Setup use of gennen invalid conseng f process ing routines 
(macros). This replaces the rm the original MSCP 
commend packet by ang al or the : th a “repeat the code 
which formed the original ASCP command’ algorithm. The cost 
ae. a single. § hardly ever taken BLBS in the mainline read/write 
code pat he savings are elimination of having to duplicate 
command packet setup changes in the invalid command case, 
hundreds of bytes of code, and a not inconsequential amount of 
static —— 


v03-146 Rouo olen 0 . Weber 7-APR-1984 
nea ise of DO Rey ON macro to replace INTERPRET_ACTION TABLE. 
Start using IF _ASCP were galy success * failure of an ASCP 
sannand is beifg tested. otue use of ACTION_ENTRY END to end 
action tables. Remove neater able Rh ge routines; 
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SEP-1 
they are now in DUTUSUBS. 


v03-145 ROWO335 Ralph 4-APR-1984 

> Correct yin; nt of este _STORE REINIT and add note that 

t is not ant Because driver is not reloadable. 
> Add use of D ris Tint. — this permits future use 
of TMSCP dev oe for begetn 

> Renove usage o Arzß on Sess value a fre SCS connect 
accept message. ALL MSCP servers now sup ply t that 
pat ype be 5 n the Set Controller Character ettes command 
n 
Eliminate bug check for IO$_READLBLK and I0$_WRITELBLK. 
Make these functions producé 5 SS$_ILLIOFUNC status instead. 
Also change function Sn ANRC TRY. fo use DISPATCH macro. 
ade process tos for 10 

‘i e multi-host progress counter handling er oogegd by the 

nse qolenentors to T R. This algorithm simpli 
handling of the case where the MSCP server is busy on an 
older command from another oe By 


v03-144 ROW0331 — 0. Weber 31-MAR-1984 
Setup use of common cancei s support in DUTUSUBS. Also make 
functions which use multiple CP commands check for cancel 
after each MSCP command and perform cancel if necessary. 


v03-143 ROW0328 alph 9. 21-MAR-1984 
Correct bugs in RoW 31 unich. caused it to incorrectly miss 
the end of the CDDB UCB chain. 


v03-142 ROw0S26 Ralph 0. Weber 4 

> Correct set eede Cad set chorestertetics so tha 
MSCPSW_FORMAT is zero except when the UCBSL RE CORD is zero. 
This brings the driver into conformance with TMSC 
version 1.6. 

> Provide for proper setup of the following UCBSL_DEVDEPEND 
bits in all cases that I can think of: AT$V_BOT, MT$V_EOF, 
nTsV EOT, if nrsy HWL, MTSY_LOST, MT$V_SUP_NRZI> MT$V_SUP7PE, 
an 

> Fix “detect ceo modifier setup so that the modifier is 
NEVER set for physical 1/0 reques 

> Change IOSB status returned —— skip file 
encounters the BOT to SS$_NORMA 


v03-141 ROW0320 atte P Weber * -FEB-1984 
Provide for autonat ¢ PACKACK. on foreign tapes (DEVSV_FOR set) 
whenever a request $ received ang the UCBs VALID bit is 
clear. Build the RB al NOP function info macros so that 
its use can be —* ayer: where necessary. 


v03-140 ROW0319 Weber 28-F EB-1984 
Attonpt to eliminate o nanneperet ions) perth by 
makin reer ng of — ORECONN CT the Last th ng.go 
ND “SYN E-STREAR Also add sanity check that CD —*8 "RECONNECT 
$ Set See t . cleared. 


v03-139 ROWO310 m 9. Ye ber 23-F EB-1984 
Make 10$_ REWINDOF? eau valent to IOS_UNLOAD. 
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v03-137 ROW0305 


v03-136 ROW0301 Ral 
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Ralph 0. Uyser 15-F EB-1984 
Fix trace support to work in the common modules environment. 
Make RECORD_GETUNIT_CHAR preserve 0. 


Ralph 0. Weber 13-F EB-1984 
Fix RO (final I0SB status) corruption problems in successful 
IO$_PACKACK processing. 


a ph 0. Weber 10-F EB-1984 

Move clearing of CDDBSV_NOCONN from MAKE_CONNECTION to after 
he new connection information *1 bgen propogated to all UCBs 
n the re-connect code. While this is not 22 
38 here and now, it will provide a useful reminder that 
CDDB$SV_NOCONN set blocks mount verification attempts and thus 
the bit cannot be cleared until connection dependent fields in 
all UCBs have been altered to reflect the new connection. 


Spyocpre (Ludge? Ralph 0. Weber 9-F EB-1984 

This kludge detects a HSC tape server in RECORD_STCON and 
forces it to act Like a multihost server for alTocation class 
determination, inspite of the fact that the HSC tape server 
does not set the multihost controller flag. This kludge can 
be removed when the HSC tape server sets the multihost 
controller flag (as it should). 


ROW0298 Ralph 0. Weber 9-F EB-1984 

Setup use of CDRPSW_ENDMSGSIZ to hold the size of an_ incomming 
sequenced message. [his replaces use of CDRPSL_IOST2+2 whose 
use causes valuable input information to be overwritten. 


ROW0297 Ralph 0. Weber 7-F EB-1984 

Correct confusion between wait count bumped due to a broken 
connection and wait count bumped due to a sequential NOP by 
introducing a UCBSV_TU_SETNOP bit in device dependent status. 


ROW0294 Ralph 0. Weber 5-F EB-1984 

Correct RECORD_STCON setup of allocation class information in 
the DDBs to use DDBSL_CONLINK so that only those DDBs on this 
connection are effected. 


ROW0293 Ralph 0. Weber 5-FEB-1984 
enerally bring tape class driver to same revision level as 
disk class or iver The only exception is that there is no 
mount verification and thus thing which depend upon it for 
updated operation techniques have been left uncnenged. 
Popaece CDRPSV_ERLOGIP in CDRP$W_STS with CORPS$SV_ERLIP in 
CORPSL_DUTUFLAGS. Setup use of CDDBSV_NOCONN status bit. 
setu use? of several routines which have been moved to 


alph 0. Weber 
Change START_DAP_ THREAD to only send Determin Access Paths 
commands for those UCBs which are UCBSV_VALID. MSCP servers 
will ignore DAP commands for units which are not MSCP online, 
so why should we send them. Add block which preveots Logging 
errors for DAP attention messages to ACCESS_PATH_ATIN. is 
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TUDR 
allows the code which logs DAP attention me message 
and to be patched back into existance should 


i 
v03-129 pove 70 Ral JAN- 
Eli etnate DRIVER_SE D Rice “Bur ‘by re tacing att 
with SEND_MSCP_MSG DRIVE ange 
larger of HSTIMEOUT 1 ARRAY mi. er Anodel) J and the controller 
timeout value as the fina —2 timeout —2 AY th e MSCP Set 
zonerot ier shoractor ie ice command. Setup use of V 


oy -00 Page | 
MS SCS | 
CYCL_RSPID and FIND_RSPID °RDTE. ris START SSENSECHAR and 


5 
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to remain 
needed. 


s 
be 
1984 
calls 
= . use * 
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RE 

START_SENSEMODE to clear the MSCPSM_MD _CLSEX” (clear serious 
exception modifier) bit, as this modiffer is illegal on Get 
Unit Status commands. ake all permanent/DAP CDRP to CDDB 
conversions use PERMCDRP_ TO_CODB. 


v03-128 ROW0269 PER IN Weber N-1984 
Change DU_ CONTROLLE INIT to use DUTUSCREATE. -CDDB. 


v03~127 —* 0262 Ralph 0. Weber pos aaa } pe 

Move all UCB lochs’ and creation to DUTUSUBS. Clea aue 

ATTN ans¢ prgeces ae in TUSIDR. Implement usage .0 of * TUDEF , 

ce independ ont UCB fields, and the I0C$ U_CDDB 
eis douse Replace all DPT_STORE macros which in ie Wes fields 

with INIT_UCB —— INIT? UCB initializes both the DPT and 
the template UCB. Its use @liminates possible mismatch of the 
two UCB sources as well 3 some setup code in the controller 
initialization routine. Make driver not reloadable. Change 
POLL_FOR_UNITS to DUTUSPOLL. FOR_UNITS. 


v03-126 ROW0261 Ralph 0. Weber 22-N0V-1983 
Move DUMP_COMMAND and DUMP _ ENDMESSAGE to DUTUSUBS. Change 
TUSEND to DUTUSEND so that Linking with multiple modules does 
not involve a *8 A Bh. * common path cleanup to speed 
gssoge t through code paths. Change subroutine 
ALL_SEND_MSG Bur te. SEND nMScP M — macro. Move INIT VTPLATE UCB 
to bOTUL TB (macro Library). 


v03-125 RLRQBUS bert L. Rappaport 16-NOV-1983 
Change epustsing Re trantter commands MSCP packet so bm 
QDRIVER can alter the mapping information durin 
request and have the altered in 
packet. 


v03-124 rROW0258 Ralph 0. Weber 17-NOV-1983 
The Paul Betater — —— 
Named for one of the untortunate custom who suffered ** 
to determine the 62 UCBSL_MT_RECORD rok Be while tryin 
create a user-written magt ape driver, this change elimina A. 
use of the device dependent field utesi_T U_RECORD in favor of 
the device independent field, tay RECO SRDS 


oo 
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formation appear In’th the Puscr 
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v03-123 ROW0253 Ralph 0. Weber 12-NOV-1983 
Change device — ute det initions to —9* with globally 
Got thee Ts ,cutensie he UCB. This change does not make 
use 


34 he UCB n the fee extension. Its pingly 
im nates nteract feu as ch = Ll prevent this module from 
n the presence of the new UCB definitions. The 
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UCBSL_TU_MEDIATYP field, yoich oe changed to UCBSL_MEDIA_ID 
ages ago, * also been drf ver nated. ’ ross hack has been 
employed to keep this dr yer compatible with the other este e 
drivers and the magtepe A This will be corrected when al 
the involved parties et art "datas the newly defined 
—X RECORD. 
vO3-122 ROW0245 ee ph 0. Weber 19-OCT-1983 
| 
| 
| 
| 


Correct couple ° outstanding g bugs: 

- cnange | SIDR t » tree incomm ng message size in 
CORP Ost2e2. $ provides he message size to any code 
requiring it. In 2 cular, the INVALID_STS fixes 
mentione peiey ay this feature. 

- Fix INVALID_S 


TS to properly rise the size of the incomming 

MSCP message in RI efore calling ERLSLOG_DMSCP. 

v03-121 ROW0243 alph 0. Weber 17-0CT-1983 
Enhance SEQ ENDCHEC to allow. canceled (MSCP aborted) end 
packets to be received out of sequence. This produces 
conformance to a revised version of the TMSCP specification. 


v03-120 —— Ralph 0. Weber 17-OCT-1983 
ange unit attention Bsa ROAT? in DUSIDR to ski 01 teers 
gees DU_WAITBMP and UCBSW_R | teen the CDDBSM_INITING or 
cD boBsh. RECO ONNECT is set in CDDB$W_STATUS. This prevents 
altering the wait count is such a ote that the wait count 
Sects in controller init and reconnection processing fail. 
Therefore, a spurous disk class driver bugcheck is eliminated. 


22———————— 


v03-119 BLS0234 Benn Schreiber 9-Aug-1983 
Add missing G“*s to calls in exec. 

v03-118 RLRDLATE Robert L. Ragoeger’ 25-Jul-1983 
Check for Data Late subcode in Controller Errors on 


data transfer commands, and return SS$_DATALATE. 


v03-117 RLRDLEOT Robert L. eapeaPane 19-Jul-1983 
Implement suport for new MSCPS$M_MD pieor modifier. 
Modifier eens "Detect Logicat End Of Tape’’ and is 
used on Q10 §$ 38 files and Skip records (forward 
direction only). 


V03-116 RLRIMMED Robert L. Raope sport 19-Jul-1983 
sept onent support for new MSCP$ MMED modifier 
that allows us to express that Cerna n commands, 
monets REWIND and OSE, are to return their End Hessages 

he command BEGINS to execute rather than when 
completes. A discussion of this is found in the TMSCP 
. ec under ' ‘Synchronous versus Asynchronous’’ operation 
Lengthy commands. 


The effort here consists of 8 grees! the 
th ts sie egthod 9 Wael enent ing support for 103M _NOWAIT. 
. ; simpl { {cet on eliminates the need for a REQIND 
P, as well as the need for special handling of 
Rewind and Available (UNLOAD) requests. 
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This update almost completeiy obviates those changes 
implemented as a result of update RLRRWATN. 


Also in this update fix bug in START_SETCHAR wherein we 
neglected to call SCSSUNSTALLUCB after decrementing 
UCBSW_RWAITCNT. 


v03-115 RLRUP TODATE Robert L. Rappaport 26-Jul-1983 
Adapt ane ncorporate relevant changes from Disk 
Class Driver. rom ;RLRDDB audit of DUDRIVER 
thru ;RLRODDBCNT. 


V03-114 RLRGROWTH Robert L. wepeeper’s 23-Jun-1983 
Due to growth in the CDDB, the length of the CDDB plus 
the Length of the CDRP is NOT < 256. We must change 
a MOVZBL to a MOVZWL. 


V03-113 RLRDPATH2 Robert L. Reppeport gig eee 
As a result of the previous change (RLRDPATH1), 
UCBSL_TU_RECORD has moved with respect to UCBSL_DPC 
breaking an assume statement that must now be fixed. 


V03-112 RLRDPATH1 Robert L. Rappa ort + Pg 
Allow UCB to include new DUAL PORT extension 
changing base of where we begin the private TUDRIVER 
extension from UCBSL_DPC+4 to UCBSL_DP_LINK+4. 


COOOQooooooooooo 
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VO3-111 RLRRWCPTRa Robert L. Rappaport 11-Apr-1983 
Correct bug in RLRRWCPTR fix. 
v03-110 RLRCANCELF Robert L. Rappaport 11-Apr-1983 


Initialize CDRP fields before deciding whether to sta 
this 1/0 request or whether to Q to UCB 1/0 Queue. T 
prevents misinterpreting uninitialized fields. 


V03-109 RLRRWCPTR Robert L. Rappaport 4-Mar-1983 
Test for zero UCBSL_RWCPTR in RDTWAIT_DIS_ACT and 
in RDT_DIS_ACTION. “Such a situation Could occur if 
no RSPID's were available during a re-Connection and 
if the re-Connection failed and we had to do a 
re-re-Connection. Also use Controller timeout for 
host timeout value for those controllers for which 
we care to set a host timeout. Als use INIT_IMMED_DELTA 


rt 
his 


0 on 
for timing out the first SET CONTROLLER_CHAR command. After- 
words always use CDDB$W_CNTRCTMO. Also’ increase 
INIT_IMMED_DELTA to 30. 


v03-108 RLRTMUCB Robert L. Rappaport 25-Feb-1983 
Revamp Template UCB so as to be automatically compliant 
with new UCB additions. Also remove initial Breakpoint. 


V03-107 RLRWTMPOS Robert L. Rappaport 22-Feb-1983 
Update UCBSL_TU_POSITION after error on WRITE TAPE MARK 
command. 

v03-106 RLRSEQNOP Robert L. Rappaport 15-Feb-1983 
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0 
0 
0 
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0 
0 
0 
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0 
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0 
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Use REPOSITION command with zeroes as a sequential NOP 


- TAPE CLASS DRIVER 


OOoooooo 


Sete Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SOOOoooooooooooooooooooooooooooooooooooooooooooooooOoOoOoOoOoOoOooO 
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OMA ⏑ä⏑ ⏑⏑—⏑—⏑ü—⏑ü⏑ü 
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in SET CHAR and SET MODE processing. 


v03-105 RLRWR 
Acce 


AV 


™ Ro 
pt MSCPSK_ST_D 


V03-104 RLRRWATN 
Implement REWIND 

ort for REWIND Attention messages received as a 

LABLE and UNLOAD commands. 


bert L. Rappaport 14-Feb-1983 
ATA as possible status of Write Tape Mark. 


. Rappaport 11-Feb-1983 
nd N 


ON an 


OWAIT. Also add 
Also support ignoring 


of spurious REWIND Attention messages. 


V03-103 RLRTRACE 
Make IRP trace a per un 


Ye Peek 


aport 4-F eb-1983 
er than a per system 


structure by moving it to the UCB. 


LIBRARY CALLS 


m — — 
— 


mma HTM 


—n — 


SDUTUDEF 


Define 


8 offsets 
vice Classes and Types 


offsets j 
EVICE CHARACTERISTICS bits 
offsets 
—52B 

og Message Types 
FKB et leets 

offsets 
1/0 FUNCTIGN codes 
symbolic IPL's 
IRP offsets 
MSCP packet offsets 
MSCP Error Log offsets 
MAGTAPE STATUS bits 
ORB offsets 
Path Block offsets 
PCB offsets 
PDT offsets 
Processor Registers 
syetes Block Offsets 
SCS Connect Message offsets 
RCT offsets 
RDTE offsets 
RDT offsets 
System Status values 
UCB offsets 
Virtual Address offsets 
INTERRUPT DISPATCH VECTOR offsets 
WCB offsets 


ommon class driver CDDB 


3 extensions and other commoi. symbols 


= TAPE CLASS DRIVER a 


00000001 
QOO000TE 
0000000A 


ean 
ae 


00 


000 


3; Constants 
: ALLOC_DELTA=1 
INIT_IMMED_DELTA=30 
i CONNECT_DELTA=10 


P=1984 00:18:27 


Number of seconds to wait to retry pool 
allocation that failed. 

During Controller Initialization, the 
timeout DELTA for immediate MS 

During Controller Initialization, the 
time interval for retrying failed 
CONNECT attempts. 

Host timeout value. 
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cP commands. 


TL 


—X 


mo 
aa! 
— 
zum 


COOCoOOCOooCooCooooo Vg 
COOooooooooooooooo 


ö00000000000050— 


22———— 


ooo 


OOoooooo 
Soooooo 


SOOoOoooooooooo 
S 


SOOOOSOSOSOSOSOOSOOOSSOoSSSo 


OOOoOoOoOoOoooooo 


— — 
— 


à———— ——————————————ö 


«-SBTTL MACRO DEFINITIONS 


Expanded opcode macros = Branch word conditional psuedo opcodes. 


: : BWNEO - Branch (word offset) not equal 


-MACRO BWNEQ DEST, ?L1 

BEQL 1 : Branch around if NOT NEQ. 

BRW DEST + Branch to destination if NEQ. 
: Around. 


Cc 
— 
oe 


; BVEOL - Branch (word offset) equal 


gin BWEQL DEST,?L1 


BNEQ L1 : Branch around if NOT EQL. 
BRW DEST ; Branch to destination if EQL. 
Li: 3; Around. 


-NOSHOW 
-ENDM BWEQL 


; BuBS - Branch (word offset) bit set. 


-MACRO BWBS BIT,FIELD,DEST,?L1 


. SHOW 

BEC BIT, FIELD,L1 : Branch around if bit NOT set. 

BRW DEST ; Branch to destination if bit set. 
Li: 3; Around. 

»NOSHOW 

-ENDM BWBS 
; _—— - Branch (word offset) bit clear. 

* BwBC BIT, FIELD, DEST, ?L1 

BBS BIT, FIELD.L1 3; Branch around if bit NOT clear. 

BR DEST : Branch to destination if bit clear. 
L1: : Around. 

.NOSHOW 

-ENDM BWBC 

IF DF TU_SEQCHK 


RPP TPNINPINIPDNININDD 2 9 9 | “DOOCOCOCDOOCOCO OVO OOOO OOOOWDDOWOWOWOOOVINNNN —o 


SODWNOA AL WN OOD NAVE WIN $$ O OD OD NOAU EWN EWN OOONOusS OF 


; SEQFUNC - Macro included in conditional code to check sequentiality 
of function terminations. 


—E 8 
Jen "Bree 188s n LonIveR.caeisuseives.mar;1 ee19, 


"SSEP=1986 O0:t8:27 EDMIVER. SRCSTUDRIVER.MAR; 


MACRO SEQFUNC CODES 


=o 

= 

-IRP =X, <CODES> 

ee, <10$_*X810$_VIRTUAL>=31 
© ASK! <lecelO8_ X8TO$_VIRTUAL>-32>> 
= MASKL !<1a<10$_'X®10$_VIRTUAL>> 
~ENDC 

~ENDM 

-LONG MASKL ,MASKH 

-ENDM = SEQFUNC 

~ENDC 


SEQNOP = macro to start a sequential NOP sequence 


This macro starts a sequential NOP sequence. A sequential NOP 
sequence encapsulates a series of TMSCP operations which must occur 
sequentially with respect to the stream of TMSCP operations flowing 
through the driver. 


First UCBSW_RWAITCNT is increased by one to prevent future 1/0 
requests from starting. Then a TMSCP sequential command which does 
not alter the tape position is sent to the server. When the 
sequential command completes, the driver and the server are 
synchronized. 


a exit from this macro, the currently executing thread is the only 
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read conversing with the server. When the operations which must be 
done in this sychronized state are c leted, the sequential NOP state 


should be terminated using the END_SEQNOP macro. 


Inputs: 


SS 


NO 


R3 UCB address 

RG POT address 

RS CORP address (RSPID & message buffer already allocated and 
initialized 


(SP) address of caller's caller 


Outputs: 


NOUS WN OO OONOUES WIN 


De ee ee 


R3_ through R5 unchanged 
ALL other registers altered 


«MACRO START SEQNOP ?L1 
BBSS #ucBs ; Set sequential NOP in progress and 
; branch if its already set. 


increment wait count to 


low 1/0. 
; Transfer REPOSITION opcode 
; to packet. 


E 
ft 3; Specifically never clear SEX on the 


Sete te ee eee 
m 
— 
wt 
@ 


TUDRIVER = TAPE CLASS DRIVER 16-SEP-1984 01:01: AX/VMS Macro V04-00 Page 
VOen O05 MACRO DEFINITIONS $23 — 85:98:37 LORIVER. SREITUDRIVER.MAR; 1 . 
$ MSCPSW_MODIFIER+1(R2) : _Seq. NOP command of a SETMODE. 
SEND _MSCP_MSG ; Send message to remote MSCP server. 
RESET_MSCP_MSG i Setup message buf. etc. for reuse. 
9 : refresh RSPID, MSG_BUF, etc. 
3 -ENDM START_SEQNOP 
94 ; 
: 32 ; END SEQNOP = terminate sequential NOP sequence 
39 ; This macro terminates the class driver — server synchronization 
38 3 estabcished by START_SEQNOP and returns the communications to a full 
3 38 stream ahead mode. 
p ? 1; Inputs: 
6 6 5 : R3 UCB address 
; ? 5 ; Outputs: 
0 6 : : RO and R3 through R5 unchanged 
8 8 ALL other registers altered 
00 610 -MACRO END_SEQNOP ?END 
00 611 BICW #UCBSM_TU_SEQNOP, - : Indicate sequential NOP is no Longer 
00 ole UCBSW_BevSTS(R3) ; in progress. 
00 61 DECW UCBSW_RWAITCNT(R3) ; Decrement wait count to allow 1/0. 
O60 614 BNEQ E ; Branch if wait count not zero. 
000 615 PUSHR #*M<RO,R3,R4,R5> ; Save valuable registers. 
4 $16 MOVL R R ; RS => UCB for SCSSUNSTALLUCB. 
000 61 JSB G*SCSSUNSTALLUCB ; Start up any waiting IRPs on this UCB. 
8 e183 * POPR #*M<RO,RS,R4,R5> ; Restore valuable registers. 
0000 620 ~~ ENDM END_SEQNOP 


— sep (LASS oniver " agegepctgge uun gurez ta 


-SBTTL ASSUMES 


RF 
i ; The fol loving set of ey Stecenente will ott be true as long as 
—4 : the IRP and CORP definitions remain consistent. 
i ASS CORPSL_10QFL=CDRPSL_IOOFL EQ IRPSL_IOQFL 
i § ASSUME CDRPSL-IOQBL-CDRPSL~ IOOFL EQ IRP$L_1008L 
if ASSUME CORPSW"IRP_SI g-CORE L.100FL EQ [RPsu size 
D( 9 SSUM CORPSE. RP-TY seDRest 1OQFL ~=—s«éEQ RP$B_TYPE 
i 308 DRPSB_RMOB-CDRPSL_IOOFL EQ IRP$B8_RMOD 
D( § 3 RPSL_PID-CDRPSL_TOOFL EQ IRPSL_PID 
ASSUM 8 —68 joart EQ Rest AST 
4 ASSU DRPSL_-ASTPRM-CDRPSL_IOQFL EQ RPSL_ASTPRM 
if 635 ASSUME CORPSL-WIND-CORPSL_IOOFL EQ IRPS$L_WIND 
D0 ° § ASSUME CORPSL_UCB-CDRPSL_TOOFL EQ IRP$L_UCB 
00 SUME CDRPSW_FUNC-CORPSC_IOOFL EQ IRPSW_ FUNC 
i 6 3 ASSUME CDRPSB"EFN-CDRPSL_TOOFL EQ IRP$B_EFN 
$3 ASSUME CORPSB_PRI-CDRPSL-IOQFL EQ IRP$B_PRI 
9 SSUME CDORPS$L-10SB-CORPSC_IOOFL EQ IRP$L_10S8 
SUME CORPSW-CHAN-CDRPSL_IOQFL EQ IRPS$W_ CHAN 
8 ASSUME CDRPSW"STS-CORPSL Joort EQ IRP$W_STS 
ASSUME CDRPSL-SVAPTE-CORPSL_IOQFL EQ IRP$L_SVAPTE 
644 ASSUME CDRPSW"BOFF-CORPSL_IOQFL EQ IRP$W_BOF F 
645 DRPSL_BCNT-CDRPSL_IOOFL EQ IRP$L_BCNT 
666 A RPS$W_BCNT-C st IOQFL EQ IRPS$W_BCNT 
64 ASSUME CDRPSL-IOST1-CORPSC_IOQFL EQ IRP$L_I0ST1 
668 RPSL_MEDIA-CDRPSL_IOOQFL EQ IRPSL-MEDIA 
64 ASSUME CORPSL-IOST2-CDRPSL~ IOQFL EQ IRP$L_10ST2 
650 ASSUME CDRPSL-TT_TERM-CORPSL_IOQFL EQ IRPSL_TT_TERM 
651 ASSUME CDRP$B-CARCON-CORP Joar, EQ IRP$B_CARCON 
634 ASSUME CORPSQ"NT_PRVMSK-CORPS$L_I0QFL £0 IRP$Q_NT_PRVMSK 
65 ASSUME CDRPSL_ABCNT-CDRPSL_IOOQFL EQ IRPS$L_ABCNT 
654 SUME CDRPSWOABCNT-CDRPSL_IOQFL EQ IRP$W_ABCNT 
$33 ASSUME CDRPSL-OBCNT-CDRPS$L_IOQFL EQ IRP$L_OBCNT 
6 § SUME CDRPSW-OBCNT-CDRPSL~IOQFL EQ IRP$W_OBCNT 
6 ASSUME CDRPSL-SEGVBN-CDRP EQ IRPS$L-SEGVBN 
6 3 ASSUME CDRPSL-JNL_SEQNO-CDRPSL_I0QFL £0 IRPS$L_JNL_SEQNO 
65 ASSUME PSL-DIAGBUF -CDRPSL_IOQFL EQ IRP$L_D1AGBUF 
660 ASSUME CDRPSL-SEQNUM-CDRPSL_TOOFL EQ RPS$L~SEQNUM 
661 ASSUME CORPSL-EXTEND-CORPSL~IOQFL EQ IRPSL_EXTEND 
662 ASSUME CORPSL-ARB-CORPSL_IOGFL EQ IRP$L_ARB 


000000F 8 


000000F 8 
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SDEFINI UCB 


SDEF UCBSL_TU_MAXWRCNT 4 
SDEF UCBSW_TU_FORMAT .BLKW 1 
SDEF UcBsu- TUTSPEED .BLKW 1 
SDEF UCBSW-TU-NOISE .BLKW 1 
K 
1 


IF TU_SEQCH 
SDEF UCB$B_TU_OLDINX .BCKB 
SDEF UCBSB_TU_NEWINX “BLEB 
SDEF UCBSL[TULSEQARY .BLKL 64 


E 
UCBSL_TRACEPTR . 1 
UCBSL-TRACEND .BLKL 1 


.ENDC 
UCBSK_TU_LENGTH=. 
SDEFEND UCB 


 IFF 
-BLKW 1 
-ENDC 
IF DF TU_TRACE 
SDEF UCBSL_ TRACEBEG .BCKL 1 
SDEF R .BLKL 
H SDEF 


INIT-ORB size=ORBSC_LENGTH 


«SBTTL TAPE CLASS DRIVER DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 


Largest size record Likely to have 
re ad SU statistics. 

Format (density). 

Current speed. 

Size of noise records ignored by 
controller. 


Index of oldest Sequence num 

Index of nexat available Seq. 8 am slot. 
Array of 64 longwords wherein 

we save IRP sequence numbers. 


Reserved. 


Pointer to pograning oF of ,Srere ring. 
Pointer to next available slot. 
Pointer to beyond trace ring. 


-SBTTL Allocate Space for Template UCB 
: 3; Allocate zeroed space for template UCB. 
INIT_UCB size=UCBSK_TU_LENGTH 


—8 
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«SBTTL DRIVER PROLOGUE AND DISPATCH TABLES (and UCB Initialization) 


LOCAL DATA 
DRIVER PROLOGUE TABLE 


DPTAB = — 34 DRIVER _PmeL onus TABLE 
END=DUTUSEND,=- 3: End of — 
ADAPTER=NULL,=- 3; No Adapte 
FLAGS=<DPT SCS = J— Driver requires that SCS be loaded 
PTSM_NOUNLOAD>,-; Driver cannot be reloaded 


{DP 
UCBs I7ESUCBSR. TU 
NAME=TUDRIVER 


DPT _STORE 


LENGTH,=;Sysgen nsists on making a ucB 
:Sysgen insists on arg a ucB 

Driver name 

Control block init values 
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INIT 
DPT-STORE DDB,DDBSL_ACPD,L.<*A\MTA\> Default ACP name 


The arc on UCB initialization requests alter the template UCB 
as well as produc ing equivalent DPT mr entries. Thus both 
structures reflect the rs poutred initial UCB state and the UCBs 
initially processed by t ver are identical whether they are 
produced by SYSGEN or Ay 1ocscory UCB. 


— — — — Sete Ge Ge Ge 
— — — — 


N WS 
N .! 
N “F 
N =D 


B_DE 
W-DE 
L-DE 
W_RW 
BDI 
W-DE 
The following —, i 


structures reflect 
produced by SYSGEN 


— — — Bete te te te 


Vv 
VBU 
Vv 
A 
IPL 
kvs 


as well as producin 
ally processed by t 


IZE,WORD, UCBsK. TU_LENGTH 


E, —3 wee “uCcB 


YP 
IPL. BYTE $_Scs 
Evc 


CHAR LONG: SzDEVSH. FOD!~ 
DE Ria 


CLASS ,BYTE,D ss 

BUFSI2Z,WORD, hits 

DEPEND LONG, <<< K _NORMAL11 @ MTSV_FORMAT>!~- 
uAITCNT wo K"PE_1600 @ MT$V_DENSITY>>> 


T 

BYTé ith SCS 

bts. WORD, <2UCBSm _MSCP_INITING - 
UCBSM~MSCP~WAI TBMP>> 


nitialization requests alter the tonploate ORB 
g equivalent DPT A entries. Thus both 
pe required initial ORB state and the ORBs 
ver are ident 


cal whether they are 
or by IOCS$COPY_UCB. 


NIT_ORB W_SIZE,WORD.ORBSC -LENGTH 
NIT“ORB B-TYPE ,BYTEDYNSC=0 
NIT"ORB B"FLAG — fe! —* 


<= 


SQN 


SSN 
PSSA 
Ooo wr 


O00 co CD CD CD CD CD CD DOD 


—OWOONOULSWN Oo 


8 
OLOGUE-AND DISPATCH ae cond 'S-$Ep-1986 GOriB:27 ORIVER.saedtubRives.man;1 2% it, 


ORBSM_PROT_16>> 3 | rotection word 


JutT oR 8 W.pROT gWORD : éeteut $ protection 

NIT~ORB ER,LONG,O ras yet 

DPT_STORE REINIT ~ : Control block re-initialization values 
; : 8. = oe Set Loutng values to be setup *2* re-initializa- 

; reloaded. 


$ not nif cant because this driver cannot 
— 8* were sl matie er to be reloadable the following vaiues would 


3 need to be re- zed upon each driver reload. 


NTD+ VECSL INITIAL LD, TUL CONTRO LER_INIT 
DPT_STORE DDBTDDBSL DoT ‘pT USDDT ; DDT address. 
DPT_STORE END 
; : DRIVER DISPATCH TABLE 
DDTAB DEVNAM=T ;DRIVER DISPATCH TABLE 
START=TU MeTaRTIO SSTART 1/0 OPERATION 
UNSOLIC=TU, Unsou ir - UNSOLICITED INTERRUPT 
FUNCTB=TU ABLE,- FUNCTION DECISION T 
CANCEL =DUTUSCANCEL _* :CANCEL 1/0 EN ENTRY ¥ POINT 
DIAGBE =RSCPSK _PUCHOLENSMECEEK: LENZ} via DIAG BUFF SIZE 
UNITINITSSUTUSUNITINIT.~i Unit initialization routine. 


| 
DPT_STORE CRB, ;_ Controller init routine. | 
CRBSL 
ALTSTART=0 Alternate Start 1/0 entry. 


UNCTION DECISION TABL ‘SeSEP=198¢ OO:;B;27 EDRIVER. caedTUbRivee MAR: 1 


. «SBTTL DISK CLASS DRIVER FUNCTION DECISION TABLE 
;_ TAPE CLASS DRIVER FUNLTION DECISION TABLE 


voe-O00" DISk EL 


me 
—— 


ER 
F 


NOUFSWw <2 


— « 


U_FUNCTABLE: 
FUNCTAB ,- 


Funct 
LEGA 
No 


on Decision Table 
ve} be 


i 
L 
operation 

Unload (make available + spindown) 
Available (no spindown) 

Space Records 

Recalibrate (REWIND) 

Pack Acknowledge 

Erase Tape (Erase Gap) 

Sense Characteristics 

Set Characteristics 

Sense Mode 

Set Mode 


> “vr 


Co: 

Re Omimiwme 
3 
q 


Space File 


Check 
Read PHYSICAL Block 
Write PHYSICAL Block 


A 
ECBDEVEVBECVYNVNvmMvsaveyecz 


3; Write VIRTUAL Block 
3 te Tape Mar 
; Data Security Erase 
- 3 Rewind 
FF ; Rewind AND Set Offline (UNLOAD) 
ORD, : Skip Records 
* p Files 
; Write End Of File 
3 ACP Control Function 


22222222 2222 


ä 4 ⏑ ⏑ ⏑ 0T ⏑ ⏑ ⏑ 1⏑ 4⏑ ⏑ ⏑⏑⏑ ⏑ O0⏑ 4»4X⏑O4⏑ ⏑⏑⏑ — 


Deaccess file 
Delete file and/or directory entry 
Modify file attributes 
; Mount volume 
; BUFFERED 1/0 FUNCTIONS 
No Operation 
Unload (make available + spindown) 


GIO Prrevvwzwo 


FUNCTAB ,- 


Par 
z5'2 


NLOA 
Available (no spindown) 
Space Records 
Recalibrate (REWIND) 
Pack Acknowledge 
Erase Tape (Erase Gap) 
Sense Characteristics 
et Characteristics 
Sense Mode 

Mode 


ooo 


e Tape Mark 
Data Security Erase 


ewin 
Rewind AND Set Offline (UNLOAD) 


©0.00.0909.09 69. 00 Cd 00.00 G0 00 09. 00 CO CD Cd CD CD 09 0D CD OD CD 69 CD 0D C0 CD CD OD 0D CD 0D OD OD OD 09.09 OD 09 00 09 09 09.0909 09.09 9 WIN NII 
PRR REESE ES FWRI —— 


Dek ek td td et ah hed ek eh ek eh eh Wh Won ad ad ad aba ap ab ap ad abodes obabins 


ooo 


Access file and/or find directory entry 
° 
Create file and/or create directory entry 


* 


<4 


rr 

>o 
CMs 
za=< 


1986 80: i 2) YORIVER. SRestUDRiveR.man:1 "9% Uf, 


Ld 
i 
FUNCTION DECISION TABL 5-SEP- 


FUNCTAB <READLELK = 


SE858 


COOQoOoooooooooosoo om 
Oo WINS OONAOUS WTO <z 


FUNCTAB sACPSA 
<ACC 
FUNCTAB om 


Write Eng of File 

Access file and/or find directory entry 
ACP Control Function 

Create file and/or create directory entry 
Deaccess file 

Delete file snd/er directory entry 

Modify file attributes 


te Chec 
Write PHYSICAL Block 
Write LOGICAL Block 


ACCESS AND CREATE FILE OR DIRECTORY 


; DEACCESS FILE 


NSE EPA ADAP AAO ANI NIV IVIL —O 


~“~ 
w 


SGOOOOCGCCOOOCOCOOoOoooooooooooooo 


DOD NINN NAAM ES FE PEPE PLL EEE 


MODIFY> 
FUNCTAB +ACPSMOUNT , <MOUNT> 
FUNCTAB <ERASETAPE. = CCESS,- 


a 


WRI TEOF 
FUNCTAB sERESSEROPARM, - 
<NOP, = 


AAAAAAAAAOAAOQOOSOOS FOWWANMOCOL LS LF FOWDMDOOCOCOCOCOOCOCOO “UT 


WOOOOOOOOOOOONDO 


ooo 
ao 


ACP Control Function 
Delete file or directory entry 
—4 —* Attributes 


7M olum 

S MAGTAPE CHECK ACCESS FUNCTIONS 
Erase Tape (Erase Gap) 

Write Tape Mark 

Data Security arece 

Write En F 

; ZERO PARAMETER FUNCTIONS 

No Operation 

Unload (make eyoilaple + spindown) 
pecol verate (REWIND) 


R d 
Rewind AND Set Offline (UNLOAD) 
Erase Tape (Erase Gap) 

Sense Characteristics 

Sense Mode 

urite Tape Mark 

Data Security Erase 

Write End Of File 

Available ‘ee spindeun) 

Pack Acknow 


| 
| 
| 
| 
| 
Write VIRTUAL Block 


;ONE PA RAMETER Fu CTIONS 


CKACK> 
FUNCTAB ——— 


WN SO ODNOA UE WIN OS OONAULS WN — 


SOOO OO0O0000 0000000096900 0960 G9 C9 C8 “I~ 


: 
EB 
9 
9 
9 


mace perords 
skip. Files 
: 1p pererds 


Set T Thee ch CHARACTERISTICS 


| 
=| 
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Static Storage a ese z te 93; 4 DRIVER.S REIT TUDRIVER.MAR; 1 : hed 
C 5 -SBTTL Static Storage | 
: § * -SBTTL = Data Area Shared With Common Subroutines Module 
. | 
C 3 
— Data Area Shared With Common Subroutines Module 
¢ i} > Functional Description: 
C ig : This PSECT contains those constant (Link-time) values which would 
C 914 ; otherwise be passed as arguments to the disk and tape class driver 
be 31? 3 common routines in module DUTUSUBS. 
t 319 34 
C 313 
C 91 . SAVE 
86 920 
0000900 4 1 -PSECT $$$220_DUTU_DATA_01 RD,WRT,EXE,LONG 
0900 | $ ASSUME DUTUSL_CDDB_LISTHEAD EQ 0 | 
0009 925 ;base + DUTUSL_CDDB_LISTHEAD : Location gontetetes 1 
000 9 $ ; address of the CDD listhead 
00000000° 0000 9 -ADDRESS IOCS$GL_TU_CDDB : for CDDBs belonging to the 
0004 928 3 tape device type 
0004 929 
00cO 930 «RESTORE 
| 


<-_ 
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: : § Ree -SBTTL — Media-id to Device Type Conversion Table 
C 4: 
: : 5 ; Media-id to Device Type Conversion Table 
c : $ : Functional Description: 
Oe 9 § : This table is used by DUTUSGET_DEVTYPE to convert a MSCP media 
be arf ; identifier to a VMS device type. 
0c 308 : Entries are made here in order of ro ae frequency of use. This 
be at7 ; speeds lookup for the more common cases 
gg eg 
Bf 349 MEDIA <MU>, <TU81> 
60695051 $00 «LONG S$$MEDIAS$S 
08 8 -BYTE OT$_TU81 
860 948 MEDIA <MU>, <TA78&> 
6D68104E 0005 -LONG S$$MEDIASS 
06 4 «BYTE DT$_TA78 
doco 949 MEDIA <MU>, <TA81> 
6D681051 0004 «LONG S$S$MEDIASS 
09 80 -BYTE DT$_TA81 
Bake 950 MEDIA <MU>, <TK50> 
6D68B032 b00F -LONG S$SMEDIASS 
OA glt -BYTE DT$_TK5O 
pace 951 MEDIA <MF>, <TU78&> 
— 0014 -LONG SSMEDIASS 
0 814 -BYTE DT$_TU78 
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-SBTTL Controller Initialization Routine 


INPUTS: 
RG 


se namahie** wieecae 
BRB $ 
JSB G* INISBRK 


o 
Sad 


; Check for CDODB already ecysent, 
; from a power failure. 


here. 
TSTL 
BEQL 
RSB 


SIOA._ MUNSTER (RS? 


the boot device UCB. 
performed on it. 


INIT_UCB macro. 


5$: 
MOVL DDBSL_UCB(R6) ,R5 
BISL #UCBSA_ONLINE, - 

UCBSL_STS(R5) 

TSTL UCBSL_LINK(RS) 
BEQL 
BUG_ CHECK 

10$: 


: his driver performs power fa 
3 result of virtual circuit closure notification. 


Check that only one UCB is chained onto the input DDB. 


TAPECLASS, FATAL : F 


+ 

MSCP speaking intelligent controller initialization routine. 
=> ete" ID of intelligent controller. 

=> IDB 


85 
Re => DDB 
R& => CRB for intelligent controller. 


; Branch around breakpoint. 
; Breakpoint for debugging. 


If a CDDB is present, this call results 
ilure recovery as a 
No action need be taken 


; Is there a CDDB present? 
; Branch if CDDB is not present. 
; Else, just exit. 


This UCB could be 


Therefore, make the UCB online so that I/0 may be 
ALL other initialization of the UCB is performed as the 
result cf DPT_STORE entries place in the INIT section of the DPT by the 


; RS => first UCB if any. 
; Set the possibily boot UCB online. 


Is there another UCB? 
EQL implies no more UCB's. 
or now. 


3; Setup those values which must be correct before IPL is lowered from 31. 
Then FORK to create an IPL$_SCS fork thread which will complete controller 


; exchanges and consumes several seconds. 


: initialization. 


Initializafion of an MSCP server requires several message 


Therefore, this work is conducted 


; in a fork thread with other system initialization proceeding concurrently. 


MOVL 5, CRBSL_AUXSTRUC(R8) 

MOVa = (R4), = 
UCB$Q_UNIT_ID(R5) 

FORK 


3; Create and initialize the CDDB. 
BSBW DUTUSCREATE_CDDB 


3; The UCB will act as a CDDB until the 
3; real one is built. 

3 setus remote system ID for call to 

; DUTUSCREATE_CDDB. 


3; Create initialization fork thread. 
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F1 1010; | 
4 ; Here we call an internal subroutine which: 
F1 (1013: 1, Makes a connection to the MSCP server in the intelligent 
4 : 13 3 controller. 
4 ! 1g ; 2. Sends an MSCP command to SET CONTROLLER CHARACTERISTICS. 
sp \8 : 3. Allocates an MSCP buffer and RSPID for our future use in 
4 : 3 $ connection management. 
i ; Upon return R4 => PDT and RS => CDRP. 
Fl 1023 © 
55 0000 C5 33 F1 1024 MOVAL CDDBSA_PRMCDORP(RS), RS ; Get permanent CDRP address. 
0088 Borg 1025 BSBwW MAKE_CONNECTION ; Call internal subroutine to make 
OF9 1 § 3 a connection to the MSCP server in 
83 1 ; the intelligent goncros ier. Input 
813 ; and output are R5 => CORP. 
—83 + 9 PERMCDRP_TO_CDDB - ; Get CODB address in R3. 
OF9 1 C oo 16 
50 1. 18,A3 pO 0100 1038 MOVL  CDDBSL_CRB(R3),RO ; Get CRB address. 
1C AO} OEFO'CF 9E 0104 1 MOVAB W*TUSTAR, - ; Establish permanent timeout routine. 
10A 33 CRBS$L_TOUTROUT (RO) 
51 2A 43 3C OQO10A 1035 MOVZWL CDDBSQ_CNTRLTMO(R3), R1 ; Get controller timeout interval. 
18 AO QO0000000'GF 51 C1 106 1938 ADDL3 R1, G*EXESGL_ABSTIM, = ; Use that to set next timeout 
oii 1037 CROSL_DUETIME (RO) ; wakeup time. 
0117 1039 ; The normal MSCP timeout mechanism is now in effect. Henceforth, 
aT 4 + 3 no fork thread may use the CDDB permanent CDRP as a fork block. 
117 1966 ASSUME CDDBSV_DAPBSY GE 8 
13 A3 = 04 88 117 104 BISB #<CDDBSM_DAPBSY @ -8>, -; Set DAP CDRP in use flag. 
011B 1044 CODB$W_STATUS+1(R3) 
55 54 A3 0 0118 1045 MOVL CODBSL_DAPCDRP(R3), RS ; Get DAP CDRP address. 
FEDE’ 30 8 8 BSBW DUTUSPOLL_FOR_UNITS : Poll controller for units. 
12 43 0080 8F AA Q1 1 $8 BICW #CDODBSM_NOCONN, - 3; Now that connection is good, clear 
49 CODB$W_STATUS(R3) : the no connection active bit. 
55 53 0000007C 8F C3 01 1051 SUBL3 ores, CODB_LINK - ; Get ‘‘previous’’ UCB address in RO. 
3g ~CDDBSC_UCBCHAIN>, R3, RS 
55 00C4 C5 00 1 1 33 100$: MOVL 5 $SL_CDDB_LINK(RS), RS ; Link to next UCB (if any). 
| 1 1055 BEQL $ 3; EQL implies no more UCB’s. 
1 1 2$ Sti DEFINED TU_TRACE 
: ! : 3. TRACE_INIT : Init IRP trace table. 
68 AS 0400 8F AA Q137 1 35 BICW #UCBSM_MSCP Aer. - ; Indicate RWAITCNT no longer bumped. 
13D 1060 UCBSW_BEVSTS(R5) 
56 ag 4 130 1061 DECW st SW_RWAITCNT(RS) 3; Decrement wait count to allow 1/0. 
0 3 140 1 8 BEQL 1 3; Branch if wait count is zero 
FeBB' 30 0142 1 BSBW 3s DUTUS HECK RWALTCNT > Else, check wait count validity. 
F 4 145 1064 110$: PUSHR #*M<RO,R1,R2,R5,R4,.R5> ; Save registers before call. 
pocecone"s 6 0147 1065 JSB G*SCS UnsfaLcuce 3; Startup any queued up 1/0 requests. 
F BA 0140 1066 POPR #*M<RO,R1,R2,R5,R4,R5> ; Restore registers after call. 
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F 11 O14F 1 100$ ; Loop back to test more UCB's (if J. 
12 a3 0404 BF AA : 1208: Brew #<CODBEM_INITING ~ ; tear Miniting’ and DAP CORP busy” 
~ ; flags. 
187 1070 ChDBSY STATUS (RSS ° 
05 : 7 ! re RSB 3; Terminate this thread of execution. 
1 eI 1075 INIT = eo ; Controller Init Timeout handler. 
OBFO 31 158 1074 BRw TUSRE _SYNCH ; If we timeout, try te restart. 
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| 
~SBTTL MAKE_CONNECTION | 
MAKE CONNECTION = Internal subroutine, called from TU_CONTROLLER_INIT and 


just oumeCT Fe that establishes a connection to the MSCP Server 
in the intelligent controller. 


> INPUTS: 
3 R5 => permanent CORP 

: OUTPUTS: 

3 Connection established and initial SET CONTROLLER CHARACTERISTICS 


command is sent to controller. Also an MSCP buffer and an RSPID 
are allocated for the connection. 


Side effects include the fact that all registers, except R5, are 
modified 


MEO OONOUE Wn" OOO 4 
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SF 4C 43 SF 45 50 41 54 


$3 33 8 CLASS_DRVR_NAME : -ASCII = /VMSSTAPE_CL_DRVR/ 
20 20 20 45 50 41 54 24 5 3 34 40 
20 20 20 20 


MSCP_SRVR_NAME : -ASCII /MSCPSTAPE / 


DPV PVP SVSUSPVSVSVSISTSTSISISISIS 
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1 
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1 
1 
15 109 
178 1036 HSTIMEOUT_ARRAY: ; Host timeouts for various controllers. 
178 1099 ASSUME MSCPSK_CM_HSC50 EQ j 
17 1100 ASSUME MSCPSK_CM_UDASO EQ § 
17B 1101 ASSUME MSCPSK_CM_RC25 EQ 
178 11 ¢ ASSUME Me eek on ENA EQ 4 
178 11 ASSUME MSCPSK_CM_TU EQ 5 
17B 1104 ASSUME MSCPSK-CM UDAS2 EQ 6 
3 17B 1105 -BYTE HOST_TIMEOUT ; Use default constant for HSC50. 
0 17¢ 1108 . 8 3; Use zero for dedicated controller. (UDASO) 
00 017D 110 BY ; Use zero for dedicated controller. (AZTEC) 
3 17E 1198 -BYTE HOST_TIMEOUT 3; Use default constant for Emulator. 
0 17F «(11 BY 3; Use zero for dedicated controller. (TU81) 
00 190 1319 BYTE 3; Use zero for dedicated controller. (UDAS2) 
: : In MAKE _CONNECTION: 
181 1114 PERMCORP_TO_CDDB - ; Get CDDB address from CDRP. 
181 1115 corgen cddb=R2 
44 A2 8EDO : ' 1118 $3 POPL CoD $L_SAVED_PC(R2) ; Save caller's return in CODB field. 
00000000" GE po 01 — 1118 MOVL G*EXESGL_ABSTIM,- 3 Copy absolute time that we entered 
A2 192 111 CODBSL_OCDCMDSTS(R2) ; this routine, or the last time that 
130 1 , 108 > terminated all pending 1/0. 
50 00000000°GF DO 0194 11 § MOVL G*SGNSGL_VMSD3,RO ; Pickup interval of seconds that we 
198 11 3; should try to CONNECT until we 
198 1124 ; _decide fo tore nate pending 1/0. 
1 3 18 1125 BEQL 15$ 3; EQL implies infinite timeout. 
50 30A C 19D 11 $ ADOL CDODBSL_OLDCMDSTS(R2),RO ; Sum is end of timeout interval. 
00000000 ' GF 1 QO1A1 11 CMPL RO, G*ERESGL_ABSTIM ; See if we have tined out. | 
4 O18 11 : BGTR 15$ : GTR means no, t me remains. 
01 ? 1AA 11 BSBW {ERAINATE PENDING 3; Else call to terminate all pending 1/0 
D 1 a i ? BRB 5 3 Looe Sack to establish a new timeout 
: period. 
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Block transfer priority 
Connect data 


CONNECT TUSIDR,-=- : Entry point of Input Dispatcher Routine. 
TUSDGDR, = 3 34 2— of Datagran ispatcher. 
TUSCONNECT_ERR,= ; Error engry 844 
CDDBSB_SYSTEMID(R2),- : Destination SYSTEM ID. 

— 3 Remote station address. 
ASCP_SRVR_NAME,- : MSCP server name. 
CLASS_DRVR_NAME,=- 3 Ascii of class driver name. 

NITTAL_CREDIT,- 3: Needs definition 
IN_SEND_CREDIT,- ; Minimum send credit 
NITIAL_6G_COUNT,- ; Initial DataGram count 


} 
| 
Also pass CDDB address to CDTSL_AUXSTRUC 
Bad Response packet address | 

| 


28 50 LBS implies success, so branch around. 


52. 08 AS CVTWL  CORPSW_CORPSIZE(RS5),R2 ; R2 has negative offset, from base of 
; _CDRP, of base of CDDB. 
52. 55 ADOL R5 Re 3; R2 => CDDB. 
53° 18 A2 MOVL CDOBSL_CRB(R2),R3 > R3 => CRB. | 
1C A3 04 aAf MOVAB 6*°20$,CRBSL_TOUTROUT(R3); Establish LABEL as place to call, for 
3 _now, for periodic wakeups. 
0A ADDLS M#CONNECT_DELTA,- : Establish Due time as a Little in 
sees | | GF “EXESGL ABSTIM,- ; the future. | 
18 A3 CRBSL_DUET IME (RS) 


; Return to caller's caller and kill 
; this thread. 


MOVL  CRBSL AUXSTRUC(R3) .R2 : R2 => CDDB. | 
MOVAB CODER PRACDRPCR2) JR 3; Get permanent CDRP address. 


208: 
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SETIPL 43 308 3; Lower IPL after ** 
— BRB 10$ ; Loop back and try CONNECT again. 
30$: ; A connection has been established 
PERMCDRP_TO_CDDB - ; Get CDDB address from CORP. 
sqroen cddb=R1 
MOVL R3, CDDBSL_CDT(R1) : Save CDT address (in perm CDRP). | 
MOVL R4, CDODBSL_PDT(R1) 3; Save PDT address. 
MOVL R3, EROSSL DAPCDT IAT) ; Save CDT address in DAP CDRP too. 
MOVL R1, R 3; Now that CDT is saved, move CDDB addr. 
MOVL CODBSL X38 RI ; Get CRB edgress 
MNEGL #1, CRBSL_DUETIME(R1) : Infinite time till next timeout, now. 
MOVAB INIT ‘TIMEOUT, - : Establish timeout routine that will 
CRBSC_TOUTROUT(R1) ; serve for rest of controller init. 


4 
: 
% 
8 BLBS RO,30$ 
0 
4 
0 
1 
5 
1 
5 
; Here we prepare to send a SET CONTROLLER CHARACTERISTICS MSCP Packet to 
§ : the intelligent controller over the connection that we have just 
: established. 
4 — 
ALLOC_RSPID ; 4 OCate a ReSPonse ID. 
ALLOC_MSG_BUF 3; Allocate an oe buffer (and also 


; allocate a unit of flow control). 
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MAKE _ CONNECTION 
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BLBS 30, 508 

MOVL COBBSL CRB(R3),R3 
BRWW USRE_SYNCH 

CLRL aR 

BSBB _—«~wPRP_STCON_MSG 
SEND_MSCP_MSG DRIVER 

BSBW”  RECORD_STCON 
RECYCH_MSG_BUF 
RECYCL_RSPID 


Determine the correct host timeo 


HSTIMEOUT_ARRAY 
returned By the 


however, one wrinkle. 
larger than any other number. 


ontroller_model 


if success, branch around. 
USRE_SYNCH expects RS => CDDB. 


Failure here means we must re-CONNECT. 


e 
; Here R2 => MSCP buffer allocated. 


First set Controller Characteristics 


with zero (i.e. infinite) host timeout. 


Call to prepare MSCP command. 
Returns with end-message addr. in R2. 


; Record Controller Characteristics. 


We recycle the END PACKET and 
thereby allocate a new send credit. 
We also recycle the RSPID. 


interval. This is the larger of 
and the controller timeout interval 


ust completed Set Controller Characteristics. There is, 


ero represents an infinite timeout and therefore is 
Also, the controller already believes the 


host timeout interval to be infinite, as the result of the previous Set 


Controller Characteristics command. 


Therefore, no further action need be 


taken when the timeout interval is infinite. 


MOVZBL CDDBS$B_CNTRLMDL(R3) 
MOVZBL HSTIMEOUT_ARRAY-1(CR 


BEQL 
MOVZWL CODBSW_CNTRLTMO(R3), RO 
BEQL 60$ 


CMPL = RO, R1 
BLssu_55$ 
MOVL 0, R1 


55$: 


TCON_MSG 


BSBB PRP _S 
SEND_MSCP_MSG DRIVER 


ECORD_STCON 


BSBB™ OR 
RECYCH_MSG_BUF 
RECYCL_RSPID 


60$: 
JMP @CDDBS$L_SAVED_PC(R3) 


; Get controller model t 


ype. 

Get corresponding host timeout value. 

f zero, branch around. 
Get controller timeout interval. 
If controller timeout is infinite, 
use already set infinite host timeout. 
Compare with HSTIMEOUT_ ARRAY value. 
Branch if HSTIMEOUT_ARRAY is Larger. 
Else, use controller timeout as 
host timeout interval. 


Else reset controller characteristics. 
Returns with end-message addr. in R2. 
Record Controller Characteristics. 
Agere we recycle the END PACKET and 

hereby allocate a new send credit. 
We also recycle the RSPID. 


Return to caller. 
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PRP_STCON_MSG = Prepare a Set Controller Characteristics Command Message. 


18 A3 00 MOVL : > RO => CRB. 
7E 2A AS ¢ MOVZWL CDDBSU_CNTRLTMO(R3) ,~ (SPS; Pickup controller delta. 
03 17 BNEQ 0$ : NEQ 


ONN ON 
! 3 3 
1 ¢ : Inputs: 
1 § 3 Ri = Host Timeout Value 
1 : R2 => MSCP buffer to fill 
1 3 : R35 => CODB 
1 3 RS => CDRP 
152) 
: re PRP_STCON_MSG: 
51 oD 1244 PUSHL  R1 3 Saye important register. 
1245 INIT_MSCP_MSG ; Initialize buffer for MSCP message. 
51 8ED0 g ! 8 POPL rT 3 Restore important register. 
04 90 9 1 $8 MOVB #MSCPSK_OP_STCON,- : Insert SET CONTROLLER CHARACTERISTICS 
08 A2 3 49 MSCPS$B_OPCODE (R25 : opcodé with NO modifiers. 
es 43 80 97 1251 MOVW CODBSW_CNTRLFLGS(R 
E Ad * 26 MSCPSW_CNT_FLGS(R2 ; bits into MSCP command message. 
10 22 51 80 Ab ! 20 MOVW R1,MSCPSW_HST_TMO(R2) ; Set host timeout into MSCP packet. 
00000000'°GF 7D AO 1 8 MOVQ G*EXE$GQ pyetie.s ; Transmit time of century in clunks. 
14 A2 Ae 3 MSCP$Q_TIME(R2) 
50 ‘ : 33 CODB$L_CRB(R3) ,RO 
BO 1261 3; NEQ implies this controller has been 
Be 1 $6 3; _init’ed at least once before. 
6— 1E 00 : : o7 70$ MOVL WINIT_IMMED_DELTA,(SP) ; Else use compiled in timeout. 
8E C1 0 3 1265 } ADDL3 (SP)+,- 3; Establish delta time for time out 
00000000 ' GF B7 1 $6 G*EXE$GL_ABSTIM,- ; to prevent against controller never 
18 AO 0 BC 126 CRBSL_DUETIME (RO) : responding. 
BE 1268 
O2BE 1269 


| 
} 
* : Set host settable characteristics 
RSB ; Return to caller. 
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50 A3 00000000‘ GF 


26 43 01 
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05 28 AS 02 
50 43 004 A2 
50 4 AS 

50 38 AO 
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BF 


“ag 2 => —33 End Message 
R dDB 


RECORD_STCON: 
MOVW P$W 
CODBSW-CNTRLFLGS ( 


MSCPSW_CNT_TMO( 
CODBSW_CNTRLTMO 


att te CNT at Yy; 


ocopesy ALCLS_S 
CODBSW_STATUS 
: The allocation class 73° about 


MSCPS HSC50, = 
CDDBSB_ CHTRUMBLCR3) 
1099$ 


~o 
CB NAME AN © OO NAN 0 OONAUS 


qero. CNTRLFLGS CRS), 


MSCPSB_CNT_AL 
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RECORD_STCON = Record data from a Set Controller Characteristics end message 
in the CODB. 


<- 


kup NON-host settable characteristics 
iron END PACKET and save in CDDB 


; Likewise with controller timeout. 
; Also save controller unique ID. 


Branch if allocation class already 
set, and indicate it is now set. 
to be set for this device. 
reasonable chance for the value to be non-zero. 
Assume a local, single host 


Is this an HSC? 


: Branch to multihost leg, 
: Branch if a single hos 


Get set controller characteristics 
ass. 

Init loop through all DDBs. 

Link to next DDB. 

h if no more DDBs. 

Copy allocation class to this 


Loop till no more DDBs. 


sp 12 22 


50 3082 
OF 


EB 

52 0000007C 8F 
53 

53 00C4 C3 
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50 40 HH 
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50 60 AO 
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P=1984 
-SBTTL TERMINATE PENDING 


The purpose of this routine is to 


Inputs: 
Re => CDDB 
RS => CORP 


Outputs: 


TERMINATE_PENDING: 
BBS #CDDBSV_INITING,= 
CODBSW_STATUS(R2) ,50$ 
REMQUE QCDDBSL_RSTRTOFL (RZ) .RO 
8 20$ 


POST_CDORP status=SS$_CTRLERR 
BRB 10$ 


SUBL3 #<UCBSL_CDDB_LINK - ; 
92 Ogee UCBCHAIND, ” 


° 


30$:  MOVL YCBSL_CDDB_LINK(R3), R3 ; 
BEQL 0$ 


40$: 
REMQUE QUCBSL_IOQFL (RS) .RO : 
BVS 0$ 3 
MOVAB  ==CDRPSL_IOQFL(RO),RO 
POST_CDRP status=SS$_CTRLERR: 
50s BRB 40$ : 


RSB 


; TERMINATE _PENDING = internal routine called from wieteritee i: 
; e 
as 


this connection because the amount of time epee tiiee in 
parameter has passed without being able to C¢ 


Registers RO, R1, R3 are modified. 
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terminate al ng 


NNECT. 


; Do not time out during initialization. 


REMQUE a pending CDRP. RO => CDRP. 
VS implies queue empty. 

Terminate this ‘ 

Loop thru all CDORP’s on CDDB Q. 


Get ‘‘previous’’ UCB in R3. 


Chain to next UCB (if any). 
EQL implies no more UCB‘s here. 


RO => IRP on Q. 
VS implies 1/0 queue onety 
RO => CDRP port on of IRP. 
Terminate this CDRP. 

Loop thru all IRP's on UCB. 


Return to caller. 
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r ] 3 -SBTTL BRING_UNIT_ONLINE 
40 1 3 ; BRING Umit ONLINE = Internal subroutine to bring on æne⸗ unit online. 
rt } § : This subroutine is called from TUSCONNECT SER 
40 1 : $ INPUTS 
40 1 3 R3 => CDDB 
1360 ; R4 => PDT 
: ! 8 RS => UCB 
ri ! 8 Implicit Inputs: 
4 é3 3 CDDBSW_STATUS(R3) CDDB$V_DAPBSY set 
40 1 6 : The normal class driver MSCP operation timeout mechanism must be 
40 1 8 enabled. 
8333 
4 BRING_UNIT_ONLINE: 
44 A3 BEDO 10 1 8 POPL CDDBSL_SAVED_PC(R3) ; Save caller's return address. 
50 54 A300 44 1374 MOVL EDOBS DAPCD bape (R3), RO ; Get DAP CDRP address. 
53 55 00 8 48 1375 MOVL 3; Copy UCB address. 
55 50 00 8 4 MOVL RO, R5 3; Copy CDRP address. 
BC AS 53 060 3 ! f MOVL R3, CORPSL_UCB(RS) : Setup UCB address in CDRP. 
52 1380 1 tt _4SG_BUF 3; Allocate a message buffer. 
01 50 3 3 1381 BLB RO, 38 ; Branch if connect ion | * s not broken. 
28 1 Ht R : Else, just k . re 30 thread. 
59 1 3$: ALLOC_RSPID 3; Allocate a peas 
zt : 3 INIT_ASCP_MSG ucb=(R3) 3 Initialize buffer for MSCP message. 
09 890 369 1 3 MOVB #MSCPS$K_OP_ONLIN,=- : ONLINE command, zero modifiers. 
08 A2 o3es 8 MSCP$B_OPCODE (R25 
A8 308 1389 BISW #MSCPSM . CLSEX- : Do exclusive ONLINE and clear serious 
bee 1390 MSCPSM_MD_EXCLU,- 3 exception. 
OA A2 2020 8F 0 67 31 as CPS MAODIF IERCA2) 
00EO0 63 80 1 38 MOVW UCBSW_UNIT_FLAGS(R3),- ; Copy UNIT flags to MSCP packet. 
OE A2 3 } 3 MSCPSQ_UNT_ _FLGS(R2) 
0008 62 00 72 139 MOVL uses MSCPDEVPARAM(R3),=-; C zer Device dependent parameters to 
C Ad 4 : 3 MSCPSC _DEV_PARM(R2) : P packet. 
0 EF 78 1399 EXTZV entey DENSITY. - : Determine density that the user has 
0 7A 1400 #MTS$S_DENSITY,- 3 last established for this unit 
50 444A re 1? 1 UCBSL— “DEVDEPEND(R3), RO ; and put into RO. 
0088 30 7E 1208 BSBW VMSTOMSCP_DENS 3; Convert VMS dens ity to MSCP format. 
20 A2 1 § 1 1eR8 MOV RI SASCPSu FORMAT (R2) ; Move ASCP density in R1 into packet. 
0S =€1 ; 1406 BBC #MSCPSV_UF_VSMSU,- : Test if ue are suppressing ve variable 
OD OE A 14 MSCPSW_ONT“FLGS(R2),10$ : speed mod e, and branch 
1 F A 14 8 EXTZV #MT$V_SPEED,- : Extract user's speed — 
0 C 14 #MTss~ “SPEED. - : from UCB. 
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50 44 A3 141 UCBSL_DEVDEPEND(R3),RO ; and put into RO. 
009 30 36 44] BSBY  SPEEDTOMSCP - 
22 A2 8 2 131 MOVW RO ,MSCPSW_SPEED(R2) 3; Move MSCP speed in RO into packet. | 
97 1313 10$: SEND_MSCP_MSG DRIVER 3; ONLIN = returns end pkt. addr. in R2. 
H: 13} IF _MSCP FAILURE, then=30$ ; Branch if ONLIN failed. | 
A 1219 ; If here then various fields in the END PACKET are valid. 
A 1918 3 Here we have just brought ONLINE a unit that was online before | 
AQ 1419 ; as a result of a failed previous CONNECTION. We assume 
AO 1420; that the volume is identical to the one that was ONLINE here before. 
. 1? 3 And then setup the UCB accordingly. | 
AO 1423 ° 
O3F2 30 - 1? : BSBW RECORD_ONL INE ; Move data from end message to UCB. 
a2 12 8 RESET_MSCP_MSG ; Setup message buf. etc. for reuse. 
03 90 7 1428 MOVE #MSCPS$K_OP_GTUNT,=- 3; GET UNIT STATUS command, zero modifiers. 
08 A2 Ag 14 ; MSCPS$B_OPCODE (R25 
3AA 1431 SEND_MSCP_MSG DRIVER 3; GTUNT - returns end pkt. addr. in R2. 
O33 1 $ IF _MSCP FAILURE, then=30$ : Branch if GTUNT failed. 
O3ED 30 0388 1? : BSBW RECORD_GETUNIT_CHAR ; Record UNIT status data in UCB. 
8 \os8 : Here reposition out to where we were before. 
0386 1238 RESET_MSCP_MSG ; Setup message buf. etc. for reuse. 
25 90 $3B9 1440 MOVB #MSCPSK_OP_REPOS,- : Reposition command. 
08 A2 038B 1441 MSCP$B_OPCODE (R25 
A&B 03BD 8 BISW #MSCPSA_MD_REWND- ; Rewind and then space out an absolute 
O3BE 144 'MSCPSM_MD_ OBJCT,- : number of objects. 
OA A2 06 O3BE 1444 MSCPSW_MODIFIER(R2) 
0080 C DO O35C1 1445 MOVL UCBSL_RECORD(R3) ,- : Copy number of objects (gaps) to skip 
OC A2 a3: 1446 MSCPSC_REC_CNT(R2) ; into MSCP command packet. 
C7 1448 SEND_MSCP_MSG DRIVER ; REPOS - returns end pkt. addr. in R2. 
3 1083 IF _MSCP FAILURE, then=30$ 3; Branch if REPOS failed. 
FC2D" 30 930 162) 208: BSBW DUTUSDEALLOC_ALL : Deallocate all CDRP resources. 
D 1288 wennchar, 10. cove - ; Get CDDB address in R3. 
DS 1454 ek oy » cddpens 
55 BC Ae 00 DA 1455 MOVL COR * UCB(RS), RS 3; Restore input UCB address. 
4483 1 DE 1456 JMP @CDDBSC_SAVED_PC(R3) : Return to caller. 
€1 1928 30$: : HERE if volume has changed. 
E71 145 ASSUME UCBSV_VALID GE 8 
65 A3 08 8A E1 1299 BICB #<UCBSM_VALID @ -8>, - ; If could not put the drive ONLINE, 
ES 1461 UCBSW_STS+1(R3) 3; clear the volume valid bit. 
07 «€1 E 1996 BBC #MSCPSV_SC_DUPUN,- : Branch around if NOT duplicate 
03 OA A E7 146 MSCP$W_STATUS(R25,40$ ; unit substatus. 
FC13* 30 EA 1464 oe BSBW  DUTUSSEND_DUPLICATE_UNIT: Notify operator of duplicate unit. 
ED 1466 ; RESET_MSCP_MSG ; Setup message buf. etc. for reuse. 
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MOVB Het 14 BR’ 3; Available command 
SEND_MSCP_MSG DRI 3; AVAIL = returns end pkt. addr. in R2. 
GFR 20$ 3 Join common exit code. 
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| 
Fo 147 ae ae TU. SEQCHK | 
i 13h -SBTTL = OVERRIDE_SEQCHK and REMOVE_SEQARY | 
FQ 147 i+ 
re 147 ; OVERRIDE _SEQCHK = Set useen TU_OVRSQCHK bit in UCBSW_DEVSTS and then fall | 
F9 1499 REMOVE _SEQARY = Remove this TRPSL_ SEQNUM from the UCBSL_TU_SEQARY and 
F914 9 ; collapse the array. | 
3 12 gi : Inputs 
FO 1485 ; SRS = => CDRP 
—34 
$3 12 § OVERRIDE_SEQCHK: 
F914 3 PUSHL RO 3; Save RO. 

39 14 MOVL conn st -UCB(RS) ,RO 3; RO => U 
F9 1490 BISW #UCBSM- TU OVRSQCHK, = 3; Set 2 to override sequence 

a 1491 UCBSU. BevSTS(RO) :  checki n° on this operation. 

33 1038 POPL RO 3; Restore 

a3 1228 REMOVE _SEQARY: 
O39 1496 mova, RO,-(SP) ; Save registers. | 
O3F9 1498 MOVL  CDRP$L_UCB(RS) ,R3 : R3 => UCB. | 
O3F9 1499 EXTZV #0,46,- : — index of oldest array slot. | 
O3F9 1500 UCBS$B.TU_OLDINX(R3) ,RO 
0379 1501 EXTZV #0,#6,- 3; Extract index of next array slot. | 
O33 1308 — UCBS$B_TU_NEWINX(R3) ,R1 | 
$3r9 1504 : EXTZV #0,#6,R0,RO0 3; Reduce RO to 6-bit index. | 
O3F9 1505 CMPL RO,R1 3; Have we run thru entire array? 
3F9 1506 BEQL 50 ; EQL implies yes. 
Sar 1507 CMPL CORPSL_SEQNUM(RS) ,- : If not, is this array slot ours? 
O3F9 1508 CBSL_TU_ SEQARY (R$) CROJ 
F9 1509 BEQL Hit : EQL implies YES. 
O38 1510 INCL 60° : Bump index. 
O3F9 1511 BRB 10$ : And continue loo op. 
3F9 1512 208: ; Here RO has array slot index. 
6 F9 1318 EXTZV Extract index of oldest array slot. 
FQ 1514 matt TU_OLDINX(R3), ~(sP5 | 
F9 1515 30$: ; Here we collapse the array by moving 
F9 151 3; each slot preceeding the slot to 
3 1 8 renove, one Fron forward. We 
FQ 151 ; begin with the slot immediately | 

38 1 18 3 —— the jound one. 
F9 1520 EXTZV £0.86 RO,RO ; Reduce RO 9 6-bit index. 

39 1521 CMPL (SP) : Are we done? | 
Fo 4 BEQL ; EQL implies we are done, 
F9 13 : SUBL3 —9 RO,R1 3 RI hase index ot preceeding slot. 
F9 1524 EXTZV #6,R1,R1 3; Reduce R1 to dex. 
F9 1525 MOVL ucése. _TU_SEQ rth t bee 7 3 Move slot contents forward one 
FO 1 § UCBS$L_TU_SEQARY(R3) CRO 3: position. 

F9 12 DECL iH : Decrement index. 
F9 15 8 BRB 308 ; And continue in Loop. 
F9 1529 40$: 
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| 
| 
B_TU_OLDINX(R3) ; Increment index to reflect collapse. | 
| 


aw 
28* 


3; Remove junk from stack. 
; Restore registers. 
; Return to caller. 
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-SBTTL Density and Speed Conversion Routines 


: VMS TONSCP DENS = Internal subroutine to convert from a VMS density 
code to a MSCP density code. 


: Inputs: 
: RO = VMS density code 
Outputs: 
: R1 = MSCP Fog ye A: 
: hich Snot ies, th that she VMS code was such that we chose 
: u co 
: RO = 1 which implies Shee the VMS code was a perfect match for 
3 one of the codes. 
TU_VMSDENS: 
3 -BYTE MTSK_NRZI ti 0 
4 -BYTE MTSK- Fe ale 
05 -BYTE MTS$K- 8 0 
04 BYTE MTSE “BE Ree 0 ; Redundant for NOT FOUND case default. 


TU_MSCPDENS: 

-BYTE  MSCPSM_TF_800 
“BYTE MSCPSM~TF~PE 
‘BYTE —B TF-GCR 
TU_ABSDENS: 


Pele ll ~~ 1) | bs ns ns On ss ns ns ns Pn ss ss ss ss Ps ss ns ss ns 


0320 5 800 
0640 WORD 1600 
186A -WORD 6250 
0640 eWORD 1600 3; Redundant for NOT FOUND case. 
TU_ABSPEED: 
BYTE $3 
BYTE 5 
-BYTE 125 
-—BYTE 255 


VMSTOMSCP_DENS : 


ASSUME MTSK_NRZI_80 
ASSUME MTSK~PE 1899 
ASSUME MT$K~GCR_6 


SUBL3 #3,R0,R1 

BLSS —-:108 

MOVL 4 
414 


mmm 
ooo 
we 


51 50 Subtract out NRZI bias from VMS code. 
LSS implies input NOT valid VMS code. 
getug tg for possible success return. 
See input in range. 


LSS implies yes. 


10$: 
CLRL RO 
MOVL #1,R1 


MOVZBW TU_MSCPDENSC(R1),R1 
RSB 


Indicate we picked up Sytoutt. 
Default is MSCP 1600 bpi 


Extract MSCP code from array. 
Return to caller. 


Bete 


20$: 
51 DA AF41 
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:"WSCPTOVKS DENS = Internal routine to convert from MSCP density code to 


VMS “density code. 


: Inputs: 
: RO = MSCP density code 
Outputs: 
: RO = VMS density code 
4 


SCPTOVMS_DENS: 
ASSUME mscesv. TF_.800 €0 
ASSUME MSCPSV~TF"PE 4 


+t ale RSCPSV TF GER 


MOVZBL TU_VMSDENSCROJ,RO 
RSB 


‘7. contains 0, 1 or 2 (or 3 if not 
un 
RO contains system density code. 


0 
1 
2 
: Return to caller. 


4* 
; SPPEDTOMSCP = internal routine to calculate MSCP speed value. 


: Inputs : 

3 9 = = deez? in IPS 

$ MSCP density value 

+ OUTPUTS: 

$ RO = MSCP speed value 

3 R1 modi fied 

SPEEDTOMSCP: 
ASSUME MSCPSV_TF_800 €0 
ASSUME MSCPSV_TF_PE EQ 
ASSUME et TF GCR  €EQ 

$ #0,# oR1,R1 

MOVZWL TU_ABSDENSCR1],R1 
MULL R1,R0 
DIVL  #1600,R0 
RSB 


Inputs: 
SCP Data Rate 
SCP density value 


R 
R 
OUTPUTS: 
: peed value 


$s 
ed 


; R1 contains 0, 1 or 2 (or 3 if not 
ound). 

; R1 contains Syetes density code. 

; RO contains absolute data rate. 

; MSCP value is rate/1000. 


0 
1 
2 
: Return to caller. 


MSCPTOSPEED = internal routine to convert MSCP data rate to speed in IPS. 


ao — 
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51 51 03 00 


51 AF 41 
50 ooniet 


5 

51 49 AF 
81 50 

FB 
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re ! § MSCPTOSPEED: 
445 1 ASSUME MSCPSV_TF_800 €0 9 
445 1 ¢ ASSUME MSCPSV_TF_PE EQ 
445 1 § ASSUME at v_TF ger EQ 2 
EA rH } S$ #0,#3,R1,R : af | consetne 0, 1 or 2 (or 3 if not 
; _ foun 
3C 044A 1 3 MOVZWL TU_A SPENSER TIM 3; Ri contains system density 8: 
C4 044F 1660 MULL 000,R : Rul tsp ply As scP gate rate by 1000. 
£6 4 3 1661 DIVE oR 3; Divide by density. 
¢ r ? 4 ADDL oR 3 ate up 
45C 1 — ASSUME MT$S_SPEED EQ 8 
9E £2 ! 8 108: OVAB TU_ABSPEED,R1 ; R1 => Start of table. 
91 46 186) CMPB (R1)+ : Find first entry > RO. 
1A 046 1998 BGTRU 3 If RO >, loop back. 
9A 046 196 MOVZBL <-1(R1),RO 3; Pickup previous value. 
05 0469 1670 RSB : Return to caller. 
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~SBTTL SET _CLEAR_SEX 


ser _CLEAR_SEX = internal s Browt vos to set (or not to set) the 
CLEARS “tape 13 Eicept ton eget tier in an MSCP command. 
if thé tape oleus wi agp be on —— hen this modifier 
$s rout ely set on K "one every ¢ i aoe tape IS in 
’ then the reas tien bit nly set if the 
Q10 function code modifier 1OSM_CLSEREXCP is one fied on this 
Q10 request. 


serious exception mod 


3 mpesnor or not we are in Serious Exception mode is a functio 

$ of how the tape was mounted and the state of a MT PENSEREXCP bit 

é in UCase _DEVD PEND. 

: If the tops. is MOUNTED ANSI, this implies that Serious Exception 

3 eode ve bp 2* In other words, we are in Serious Exception mode 
3 if t s 4 Loy or if the MTSM_ENSEREXCP bit ‘3 on in 
3 vest *OEVDEPEND’ If a e is NOT mounted ANSI (i.e. either not 

3 mounted or mounted fore; 4} and — ENSEREXECP is not set then 

3 we implicitly insert a Clear Serious Exception modifier on each 

: and every command. 


; ; Input $: 

R2 => MSCP command buffer 

R3 => UCB 
=> CDRP 


SET_CLEAR_SEX: 


BBS #10$V_CLSEREXCP,- : Branch to clear if clearing serious 
CORPSO_FUNC(RS),10$ i: exception specified. 


BBS #MTSV_ENSEREXCP 
aad ucBs “DEVDEPEND(R3), 20$ 


#DEVSV_MN 
UCBs BEVCHAR(R3), 10$ 
BBC #DEVSV_FOR,- 
UCBSL _BEVCHAR(R3) , 20$ 
ASSUME MSCPSV_MD _CLSEX GE 
BISB ag AD 48 >. - 
MSCPSW_MODIFIER+ 
BICB #ATsn m SER REXCP,- 
UCBSL—DEVDEPEND(R3) 


RSB : Return. 


* if Serious Exception explicitly 

ena 

If Tape NOT mounted, go clear serious 
exception. 

Branch around Serious Ercogt ton 
clearing if tape MOUNTED ANSI. 


— 
— 
—4 


: Request clearin “ possible Serious 
3; Exception condi 
3; Also explicitly clear software bit. 
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~SBTTL AUTO_PACKACK = Perform automatic PACKACK for foreign tapes 


on 
=> 
Qn 


This code thread performs a gratuitous PACKACK for foreign mounted 
tapes. It executes whenever an 1/0 request finds the volume valid bit 
clear, the tape at BOT, and the foreign mounted bit set. 


The {nous CORP is given a RSPID and a message buffer. The message is 
inititalized. This thread is then synchron gee with the server so 
that this is the only thread communicating with the server. Note: 
there is an implicit synchronization with other SEQNOP threads in that 
generat cannot arrive here while other threads are synchronized by 


Once synchronization is established, ONLINE and GET UNIT STATUS 
commands are sent to the server. This simulates an 10$ PACKACK. 
if either command fails, the 1/0 request is completed with a volume 
nvalid error. If both commands succeed, the device is marked volume 
valid and BOT. The original request is requeued at the head of the 
—— 1/0 request queue and the SEQNOP condition is ended. This 
restarts the original 1/0 request before any which may have 
accumulated while the automatic PACKACK was in progress. 


ALL failures result in the unit being set MSCP AVAILABLE and the UCB 
being marked volume invalid. Before completing the original 1/0 
request, the error path also ends the SEQNOP condition. 
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3 ENABLE LSB 
0108 31 444 850$: BRW MSG_BUF _FAILURE : Branch assist. 
, 1 AUTO_PACKACK: 
7 : LIF DF TU_SEQCHK, BSBW OVERRIDE _SEQCHK : Undo seq. checking. 
784 ALLOC_RSPID ; Allocate RSPID. 
785 ALLOC_MSG_SUF : Allocate a æ* buffer. 
F150 €9 7 § BLBC RO, 850$ : Branch if connection broken. 
88 7 INIT_MSCP_MSG ucb=(R3) : Initialize message buffer. 
rt f 3 START_SEQROP 3; Synchronize with server. 
08 A2 09 90 O4AF 790 MOVB #ASCPSK_OP_ONLIN, - 3; ONLINE command. 
483 1791 MSCP$B_OPCODE (R25 
OA A2 2020 BF AB 046 3 BISW #<MSCPSM_MD_CLSEX - : Do exclusive ONLINE and clear serious 
48 9 'MSCPSM_MD EXCLU>, - ; exception. 
489 179% MSCPSW_MODIFIER(R25 
OE A2 00k0 C3 80 0489 1795 MOVW UCBSW_ONIT_FLAGS(R3), - ; Copy UNIT flags to MSCP packet. 
4BF 38 MSCPSQ_UNT-FLGS(R2) 
0008 (3 DO O4BF 179 MOVL aa ASCPBEVPARAM(R3),-; Co x Device dependent parameters to 
1¢ Ag rth 3 MSCPSC_DEV_PARM(R2) 3; MSCP packet. 
50 44 a3 OS 08 EF 04C 79 EXTZV #MTS$V_BDENSTTY, - ; Determine density that the user has 
4CB 0 #WMTSS_DENSITY, = ; last established for this unit 
4CB 1 UCBSL_DEVDEPEND(R3), RO ; and put into RO. 
FF3E 3 4CB § BSBW VASTOASCP_DENS : Convert VMS density to MSCP format. 
30 ag 1 8B 4C MOVW 1 RS CP SG _FORMAT(R2) 3: Move MSCP density in R1 into packet. 
OD OF A 5 €1 04D 4 BBC #mSCPSV_UF-VSMSU, = : Test if we are suppressing variable 
4D 5 MSCP$W_ONT“FLGS(R2), 10$; speed mode, and branch if NOT. 
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- Perform automatic PACKACK | 

EXTZV att sree os ; 
C“DEVDEPEND(RS), RO * 

RO, mscPau, SPEED (R2) 


mSCP 
iia CORPSV_CAND EQ 0 
BLB RPSL_DUTUFLAGS(RS), 


IF _MSCP FAILURE, then=900$ 
3; The various fields in the END 
; ONLINE. 


> 


OOD O TT a Amo OUS 


~O 


Oooo 


— 
— 
on 


RECORD_ONL INE 
a MSCP_MSG 
MOVB 


MSCP® 
ASSURE rons. D EQ 0 
BLBS DRPSL~ ~SUTUFLAGS (RS) , 


IF MSCP FAILURE, then=900$ 
RECORD_GETUNIT_CHAR 


— — — — ————2 


WN OS Oo CO OONOUS Win OO 


sta area 


CORPS L EHOOFLTAS) 
Dae TOQFL(R3) 


BBE EEE SEF EWI 


OO OONAUSE 


rT] 
MSCPSW —— 
DUT UTUSSEND_ DUPLICA 


"SCP 
Heat OP _AVAI 


MODAN DDO WUT h HBSS 


ea a ak td at at = = = = = — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


2000900.09 69 0d Cd 09 09 OD 9 CS OD OD GD OD CD CD CD CD Cd CD 0 


nOV Z7WL #Ss$ 

ASSUME ESSE VO CAND EQ 0 
LBC RPSL ~DUTUFLAGS(RS), 

MOVZWL #SS$_ABORT, RO 
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; Branc 
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xtract user's speed specification 
rom UCB. 


; Move MSCP speed in RO into packet. 
; ONLIN = returns end pkt. addr. in R2. 


Has *2 been canceled? 
operation canceled. 
Branch if ONLIN failed. 


PACKET are valid and the tape is 


Move data from end message to UCB. 


Setup message buf. etc. for reuse. 
GET IT STATUS command. 


GTUNT - returns end pkt. addr. in R2. 
Has o oe —2 canceled? 


Branc sper et ter on —— 
Branch it GTUNT failed. 


; Record UNIT status data in UCB. 


Make unit volume valid. 


: Set beginning of tape. 


Release all SCS resources. 

Put this request at the head of 
the pending 1/0 queue 

End the — NOP state. 
Kill this thread. 


: Something went wrong during auto PACKACK. Fail the I/0 request. 
ASSUME ycesy VALID GE 8 
BICW <UCBSM_V 


Clear unit volume valid. 


: Branch around if NOT duplicate 

> unit substatus. 

> Notify operator of duplicate unit. 
; Setup message buf. etc. for reuse. 
Setup available command. 


AVAIL - returns end pkt. addr. in R2. 
End the sequential NOP state. 
Set volume invalid status. 


; But., if operation was canceled, 
use ‘‘aborted’’ status instead. 


| 
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= TAP 
AUTO, 


0758 31 O36 


Pat 


LASS DR 
KACK = 


‘ 1884 9508: BRW 
ee. -DISABLE LSB 


P 


K 10 
VER 
erform automatic PACKACK 


FUNCTION_EXIT 


"SrSEp=198e 80:18:27 


AX/VM 
DRIVE 


) 
: Terminate origianl I/0 request. 


ReStubRiver.mar:1 2° 4, 
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55. OOA8 C5 
00000000 GF 


09 38 43 18 


FA68* 


L 10 


: End of out of Line code 


; CDRP's prior to re-CONNECTION. 


= TAPE CLASS DRIVER 16-SEP-1984 01:01:11 VAX/VMS Macro V04-00 
START 1/0 Sets 7 831 DRIVER. SRCITUDRIVER.MAR; 1 
éD ] -SBTTL START 1/0 
SB 1882 
6D 1871 ; Beginning of out of Line code to deal with problems that 
8 $ may occur in the common STARTIO code on the next page. 
56D 1 LOCAL_DEVICE: 
09 2$ 1 MOVL UCBSL_2P_ALTUCB(R5),RS ; R5 => Local UCB. 
1 2 } JMP G*EXESINS100 3; Go hand this IRP to local driver. 
78 #1 3 
37 : 3; Out of Line code to handle Volume Invalid. 
578 1 ? 
27 VOL_INVALID: 
—1 0578 1 BBC #DEVSV_FOR, = ; Branch if device is not foreign 
57D 1 UCBSL_BEVCHAR(R3), 10$ ; mounted. 
DS 057D 1 TSTL UCBSL_RECORD(R3) : Is device at beginning of tape? 
1¢ 0581 1 BNEQ 10$ ; Branch if device not at BOT. 
3 583 1 BRW AUTO_PACKACK : Else, go issue gratuitous PACKACK. 
EO 386 1889 10$: BBS #IRPSV_PHYSIO,- : See if PHYSICAL 1/0 requested. 
38 1 CDRPSW~STS(R5S5 ,- : If physical, then branch back to 
58A 1 PHYIO_VOLINV 3 continue even tho VOLINV. 
588 1 If DF TU_SEQCHK 
588 1 BSBW OVERRIDE_SEQCHK : Override sequence checking and 
0588 1 3 remove sequence # from array. 
83 -ENDC 
3¢ 0586 1 MOVZWL #SS$_VOLINV,RO : Indicate error status. 
4 0590 1 CLRL R 3; Clear second word of 1/0 stacus. 
1 236 ! BRW FUNCTION_EXIT ; GOTO common exit. 
595 1 3 
595 1 
3 MSG_BUF _FAILURE: 
0398 1 3; We are here enty if we had an allocation failure on the Message Buffer. 
595 1 : This implies that our CONNECTION to the MSCP server is broken. The action 
83 1 ; to be taken is to kill this thread of execution since we are guaranteed 
595 1 3; that a thread exists that is current ay engcut ing that is ocner ine all 
23 : : CDRP*s associated with this CONNECTION. So we branch to KILL_THIS_THREAD. 
31 338 ' BRW DUTUSKILL_THIS_THREAD ; Branch to where we collect all active 
338 : 
598 1 
598 1 


—— 
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Mirae tdi START 176 ae tS 84: 9R:3} DRIVER. SRCITUDRIVER.MAR; 1 . (1) 
9 17 TU_STARTIO: 
2 1 ASSUME UCBS$V_BSY GE 8 
65 AS 01 BA 1 BICB #<UCBSM_BSY @ -8>, - ; Undo bit setting so that multiple 
$3 UCBSW_STS+1(R5) ; IRP's can be started. 
236 3 § :; If this UCB indicates that the device is a local (non-MSCP) device that 
9C 1925 ; has also been made available to us via 1) dual 8 and 2) an MSCP 
oe 2 3 ; Server on the node to which it is dual ported, then shu 
X 619 
03 £0 236 9 § BBS #DEVS$V_CDP,- 3; This bit, if clear indicates that 
3C A 2? g § UCBSL_BEVCHAR2(R5) ,- ; the above condition is NOT true, 
— A 9 LOCAL_DEVICE : _so branch out of Line if set. 
50 60A 9E ah 4 , MOVAB =-CDRPSL_IOQFL(R3),RO ; Get address of CDRP portion of IRP. 
SA 9 § ASSUME CDRPSB_CD_TYPE EQ CDRPS$W_CDORPSIZE+ 
5A 9 ASSUME CORPSB-FIPL EQ CDORPSW_CDRPSIZE+ 
08 AO O839FFAO BF DO OSA 934 MOVL #< <IPC$_SCSa24> - 7 Initialize CORP size, type and fork 
SAD 1935 ! <DYNST_CDRP@16> - 3; IPL fields. 
SAD 9 § ' <CORPSC_IOQFLE*xFFFF> >, = 
SAD 937 CORPS$W_CDRPSIZE(RO) 
SAD 338 ASSUME CDRPSL_RSPID Q CDRPSL_MSG_BUF +4 
1¢ AO 7C OSAD 19 CLRQ CORPSL_MSG_BUF (RO) ; Prevent spurious DEALLOC_MSG_BUF and 
580 ; _also spurious DEALLOC_RSPID: 
gc A 4 058 CLRL CORPSL_LBUFH_AD(RO) 3 Prevent spurious UNMAP. 
6A E 58 MOVAB UCBS$W_RWAITCAT(RS),- 3; Point CDRP field to UCB field. 
28 AO 5B CORPSC_RWCPTR(RO) 
40 AO D4 8 CLRL CORPSL_DUTUFLAGS (RO) ; Initialize class driver flags. 
56 B5 BB TSTW UCBSW_RWAITCNT(RS) See if any IRP's currently waiting 


AS 
for resources. 

05 13 BEQL TU_REAL_STARTIO EQL implies NO, so GOTO real STARTIO. 

63 OE INSQUE IRPSL_IOQFL(R3),- To force sequential submission of commands 
B5 @UCBSC_I0QBL (R55 to intelligent controller, we force 
IRP's to be queued up here if any 
previous request is possibly hungup 
pent ing for resources between the 

n 


beginning of STARTIO and the SEND_MSG_BUF 


a a a ee ed ed = = = = 4 — — = = 3 3  — 2 2 8 ss 3 — — — — — — — — —— 
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5 
5 
5BE 
2eF 
3 
3tf 
5C4 
8 
05 te RSB Return to caller (Q10 system service) 
te TU_REAL_STARTIO: 
5¢5 IF DF TU_TRACE 
5¢ BSBW TRACE_IRP 3; Trace IRP, 
5C MOVAB =-CDRPSL_IOQFL(R3),RO ; Refresh RO=CDRP if tracing. 
zt -ENDC 
53 = 5C 96 MOVL R5,R : Let R3 => UCB. 
55 23 8 ate 302 MOVL — : RS => CDRP. 
5¢B 369 IF DF TU. SEQCHK 
5¢B 368 EXTZV #IRPSV_FCOE,- : Extract 1/0 function code. 
5¢B 39 #IRPS$S_FCODE,- 
5¢B 1970 CORPSW~FUNC (RS) ,R1 
5CB 1971 BBC R1,SEQ"MASK, TU_RESTARTIO; If none Sequent tal 1/0 branch around. 
5¢B 33 EXTZV #0,- ; Extract six bit index into array of 
5¢CB 197 #6,- 3 IRP sequence number slots. R1 = 


: mt this IRP to | 
3; the local driver. 


—— 


= TAPE CLASS DRIVER 
START 1/0 
CB 197 
CB 1396 INCB 
cB 1378 MOVL 
Bex 
CB 1358 
CB 1980 TU_RESTARTIO: 
a 
00c8 9 do Gck 19 MOVL 
24 A SCF 1984 
201 1985 
D1 19 § 
54 0084 ¢3 00 3 8 MOVL 
03 64 A3 OB €0 0506 19 § BBS 
50B 1990 
FF9A 31 O50B 1991 BRW 
5DE 1336 
Bape 199 
SDE 1994 PHYIO_VOLINV: 
SDE 1995 ALLOC 
5E4 1996 
5E7 1997 
AB 50 €9 OSE7 1998 BLBC 
OSEA 1999 
OSEA 2000 ; Here a Little 
OSEA 2001 
50 52 DO OSEA 8 OVL 
5ED 00 REPEAT 
5ED 2004 CLRQ 
80 7C OSE 44 -ENDR 
80 D4 OSF 06 LIF 
ber 007 LIF 
5F7 2008 ellF 
OSF7 2009 
20 AS DO OSF7 2010 MOVL 
62 OSFA 2011 
pare big 
00D4 C3 80 5FB 01 MOVW 
04 SFF 2014 
601 2015 
601 318 TU_SEGIN_IVCMD 
30 4 TU-REDO_TO: 
FE66 30 0601 O18 BSBW 
OF £1 0604 0 BBC 
04 CO AS 06 2021 
609 § ASSUME 
0B A2 01 88 0609 BISB 
60D 4 
60D 5 30$: 
60 €F tt] § EXTZV 
3 60F 
51 COA 61 3 
61 0 
61 030 


RSPID 
ALLOC"MSG_BuF 


DISPATCH R1, type=B, prefix=I10$_, < - 


aen 4 Page 
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UCBSB_TU_NEWINX(R3),R1 ; index of next available slot. 

UORPSC SEGNURC ; ; eae onan + f this IRP t 
* 3; Copy sequnce number o $s 

UCBSL_TuU_ SEQARYCRS)ER12 | 3 elrcu * ring slot. ° 


; Label where we RESTART CORP's — 
viertual circuit re-CONNECTION 


UCBSL_CDT(R3),=- : Place CDT pointer —* CDRP —8 — 

CORPSE CDT<RSS : reference’ by SCS routines. No ? 
; Bt i ther Label Tu RESTART L0"so 
: refreshed upon restart. 

UCBSL_PDT(R3) ,R4 3 R4 => port's PDT. * 

#UCBSV_VALID Branch if unit is volume valid. 

UCBSW 333. enrio. voLiny 

VOL_IAVA : hes. branch to out of Line 


; volume invalid processing. 


3; ALLOCate a ReSPonse ID. 

3; Allocate an MSCP buffer (and also 
; allocate a unit of flow control). 
RO,MSG_BUF _FAILURE : If failure, branch out of Line. 
common MSCP packet initialization. 


R2, RO : Copy message buffer address. 
WSCPSK_MXCHDLEN /8 
+ ; Zero entire message buffer. 


NE MSCPSK_MXCMDLEN & 4, CLRL (RO)+ 

NE MSCPSK_MXCMDLEN & b ¢ CLRW <RO)+ 

NE MSCPSK_MXCMDLEN & 1, CLRB (RO)+ 

CORPSL_RSPID(RS) ,- ; Use RSPID as command reference 
MSCPSL_CMD _REF (R2) 3; number for all commands. 


UCBSW_MSCPUNIT(R3) ,- 3; Indicate UNIT number in MSCP 
MSCP$Q_UNIT(R2) 3 packet. 


SET_CLEAR_SEX 3; Go set state of Clear Serious Exception. 
#10$V_INHRETRY,- ; Branch around if NOT inhibiting RETRY. 
CDRP$@_FUNC (RSS ,30$ 
MSCPSV_MD_SEREC GE 3; Else, set the suppress error 
#<MSCPSM_MD SEREC@-8>, -: modifier. 

MSCPSW_MODIFIER+1(R2) 
o1erey 682 : Extract 1/0 function code. 


#IRPSS"F 
CORPSW~ FUNCIRS) « R1 


: Dispatch to correct 


' 
— 
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16-SEP-1984 AX/VMS Macro V04-00 
g-S6F =}382 8h ‘0h } DRIVER. SRCITUDRIVER. MAR; 1 

<NOP, START_NO * ; function processing. 
<PACKACK, START-PACKACK>, = 

<UNLOAD START-UNLOAD>, = 

<AVAILABLE, START-AVAILABLE>, - 

<REWIND START-REWIND>, - 
<REWINDOFF, START-REWINDOFF>, = 

<READPBLK START-READPBLK>, = 
<uRITECHECK, START-WRITECHECK>, = 
WRITEPBLK START-WRITEPBLK>, = 

8* WRITEMARK START-WRITEMARK>, = 

<WR iTEOR START WRITEOF>, = 

<SPACEF ILE, START-SPACEFILE>, - 

<SKIPFILE START-SKIPFILE>, = 

<SPACERECORD, START SPACERECORD>, - 

<SKIPRECORD, | START SKIPRECORD>, = 

<RECAL START-RECAL>, = 

<ERASETAPE, START-ERASETAPE>, - 

<DSE START-DSE>, = 

<SENSECHAR, START-SENSECHAR>, = 

<SENSE MODE. START-SENSEMODE>, = 

<SETCHAR START-SETCHAR>, = 

<SETMODE, START-SETMODE> = 


; Function code is not legal. 


BSBW DUTUSRESTORE_CREDIT ; Restore allocated send credit. 
MOVZWL #SS$_ILLIOFUNC,RO 


CLRL R 
BRW FUNCTION_EXIT : Branch to exit 1/0 function. 
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~SBTTL_ START_NOP 


1:01:11 VAX/VMS Macro v04-00 p 
:18:27 CDRIVER.SRCITUDRIVER.MAR:1 αα 


; START NOP = Prepare’ an MSCP packet to do a GET UNIT STATUS command. 


Re => MSCP buffer 
R35 => UCB 

R4 => PDT 

RS => CORP 


§ 


TART_NOP: 
" 


NOP” CTRLERR: 
NOP DRVERR: 
:NOP_END: 


CLRL eR 
BRW FUNCTION_EXIT 


OVB  #MSCP$K_OP_GTUNT,- 
MSCP$B “OPCODE (R25 _ 
ASSUME MSCPSV"MD CLSEX GE 
BICB  #<MSCPSM_AD CLSEXa- 
MSCP$W_MODIFIER+1(R 
IF_IVCMD then=NOP_IVCMD_END 
SEND_MSCP_MSG 
O_ACTION NONTRANSFER 
— -ENTRY zoöcch 
iioue 
ACTION-ENTRY L, SS$~ =MEDO 
ACTION-ENTRY OR iV VE: $S$~ 
ACTION-ENTRY NTL LR. SS$~ 
ACTION-ENTRY SS$~ 
ACTION-ENTRY END. are ABLE 
BRW INVALID_STS 
NOP_IVCMD: - 
IVCMD_BEGIN 
BRW TU_BEGIN_IVCMD 
NOP_IVCMD_END: 
iycr D_END 
g eeeee NOP_SUCC 


MSCP packet is zero except for MSCPSL_CMD_REF and MSCP$W_UNIT fields. 


; Transfer GET UNIT STATUS opcode 


to packet. 


; The clear serious execption modifier 
; is illegal on get unit status cmds. 


; Branch if invalid command processing. 
; Send message to remote MSCP server. 
SSS N ; ——— 53 — end status. 

ENTRY A SS$_ =DEVOr FLine. WOP OPEL INE 


RLER RR, NOP~IVCMD 


Unexpected MSCP end status. 


: Begin invalid command processing. 
; Replicate building MSC 


command. 


penptete invalid command processing. 
Fall through to complete command. 


Clear for 1/0 status block. 
Branch to common exit. 


<-_ 
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—WB START PACKACK Pa} 9b6 BOLteior FORIVeR.caeaubStuce.mans1 ame 
LSBTTL START_PACKACK 


; START_PACKACK = Prepare an MSCP packet to do an ONLINE command. 


222 


: INPUTS: 
68 ; * => MSCP buffer 
68 3 R35 => UCB 
68 $ R4 => PDT 
8 RS => CDRP 
és ; MSCP packet is zero except for MSCPSL_CMD_REF and MSCP$W_UNIT fields. 
8 START_PACKACK: 
09 90 068 MOVB #MSCPSK_OP_ONLIN,=- : Transfer ONLINE opcode 
08 A2 68 MSCP$B_OPCODE (R25 ; to packet. . 
50 008C ¢3 60 068 MOVL UCBSL_CDDB(R3), RO ; Get CDDB address. 
04 28 AO 62 «C€E1 BBC #MSCPSV_CF_MLTHS, - - Branch if not a multi-host server. 


20 4 
OA A2 


OE A2 O0E0 C3 


BISW #MSCPSA_MD_EXCLU 
MSCPSW “MODIFIER (A2) 


208: MOVW UCBSW_UNIT_FLAGS(R3), - ; Copy unit flags to MSCP packet. 
MSCP$Q_UNT_FLGS(R2) 


MOVL UCBSL_MSCPDEVPARAM(R3) ,-; Copy Device dependent parameters to 
MSCPSC_DEV_PARM(R2) ; MSCP packet. 


EXTZV AMISV =pENei Ty. - ; Determine density that the user has 
#MTS$S"DENSITY ; last 232 for this unit 
UCBSL- DEVDEPEND(R3), RO ; and put into R 

BSBW VAST TOMSCP_ : Convert VMS density to MSCP format. 
MOV R1,MSCPSW_ FORMAT (R2) ; Move MSCP density in R1 into packet. 
IF_IVCMD then=PACKACK_IVCMD_END ; Branch if invalid command processing. 
SEND_MSCP_MSG : Send message to remote MSCP server. 


ASSUME poate as VALID se 8 


; Do exclusive ONLINE. 


ies] 
o 


2 
So 


a 8 C3 

1C A2 
08 EF 
05 
4 AS 
Foge 
1 


BICcB ett a@-8>, - ; Initialize software volume invalid. 
UCBSW_ eres (R3) 

DO_ACTION NONTRANSFER ; Decode MSCP end status. 
ACTION_ENTRY SUCC, SS$_NORMAL, PACKACK_SUCC 
ACTION_ENTRY OFFLN, SS$- W3* PACKACK_OFFLINE 
ACTIONENTRY § ABRTD, SS$7AB END_PACRACK 
ACTION~ENTRY DRIVE, S$ ~DRVERA END~PACKACK 
ACTION-ENTRY MTER, SS$~ ~CIRLERR, END ~PACKACK 
ACTION_ENTRY ENTER: SS$-CTRLERR, END PACKACK 
ACTION_ENTRY ICMD, SS$- CTREERR. PACRACK_IVCMD 
ACTIONTENTRY  END_TABLE ~ 

0960 31 BRW INVALID_STS ; Unexpected MSCP end status. 
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DRIVER 


E 11 


16-SEP-1984 01 
7362138. $0 
PACKACK_SUCC: 
ASSUME CDRPSV_CAND EQ 0 
BLBS DRPSL_DUTUFLAGS(RS), = 


10$: 


BBS #MSCPSV_SC ALON, ; 
MSCP$W_STATUS(ROS,10$ : 
RL $L_RECORD(R3) : 
ASSUME V.B0T GE 
ASSUME MTSV-EOF GE 16 
ASSUME MTS$V“EOT GE 16 
ASSUME MT$V LOST GE 16 
1CB #<<MTSM_EOF ! MTSM_EOT -; 
| MTSM"LOST> @ -16>, - : 
UCBSL_DEVDEPEND+2(R35 
BISB ACM 


T BOT a -16>, = 
UCBSL_DEVDEPEND+2(R3) 


BSBW RECORD_ONL INE 


OL: nave Macro V04-00 


Page 
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Action routine for MSCP$K_ST_SUCC. 


Was I/0 request canceled? 

Branch if request was canceled. 

Branch around clearing of TU_RECORD 
if REDUNDANT ONLINE. 

Successful exclusive ONLINE rewinds 


eyeer position sensitive DEVDEPEND 
5. 


; Set BOT DEVDEPEND position bit. 


; Record ONLINE data in UCB. 


; Here having done an ONLINE we proceed to do a GET UNIT STATUS. 


RESET_MSCP_MSG 

MOVB ~ #MSCP$K_OP_GTUNT,- 
MSCP$B_OPCODE (R25 
SEND_MSCP_MSG 


IF MSCP SUCCESS, then=PACKACK_GTUNT_SUCC 


ASSUME CORPS$V_CAND EQ 0 

890$: BLBS  CORPSL~DUTUFLAGS(RS), - 
PACKACR_CANCEL 

RESET_MSCP_MSG 

BRW TUTREDO_10 
PACKACK_GTUNT_SUCC: 

BSBB —- RECORD_GETUNIT_CHAR 

MOVZWL #SS$_NORMAL, RO 

BRB VALIB_PACKACK 
P \CKACK_IVCMD: 

IVCMD_BEGIN 

B TU_BEGIN_IVCMD 
PACKACK. IVCAD_END: 

BRB ~ END_PACKACK 
PACKACK_OFFLINE: 


BBC #MSCPSV_SC_DUPUN, - 
a CP$#_STATUS(R2) ,208 


PUSH 

OVL R3,R5 

BBW DUTUSSEND_DUPLICATE_UNIT 
MOVZWL #SS$_DUPUNIT,RO 


Setup message buf. etc. for reuse. 
Opcode is for GET UNIT STATUS. 


Send message to remote MSCP server. 

; Branch if GTUNT successful. 
Was 1/0 request canceled? 

Branch if request was canceled. 


Setup message buf. etc. for reuse. 
Go try again. 


; Record unit status data in UCB. 

; Set success IOSB status. 

; And branch around to success. 

; Begin invalid command process ing. 

; Repeat commands that formed MSCP cmd. 


; Complete invalid command processing. 
; Branch around to end. 


Branch around if NOT duplicate 
unit substatus. 


save R5. 

RS => UCB for subroutine. 

Send a message to the operator. 
Restore R5. 

Return final status. 
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F 11 
= TAPE CLASS DRIVER a SEP-19 
START ACK P=19 
11 END _PACKACK 


BBC #ASCPSV_SC_INOPR 
END_PACKACK 
MOVZWL #SSS_DRVERR,RO 
BRB END_ PACKACK’ 
PACKACK_CANCEL: 
a. SCP _MSG 
MOVB 


fay Ha oP pyals *° 


B_OPCODE(R 
SEND_M 
MO OvzGL rene ABORT, RO 
BRB END_PACKA Ck 


VALID_PACKACK: 


ASSUME yceey VALID GE A 
BISB CBSM_VALID @ 
UcBsu. STS+1(R3) 


END_PACKACK: 
BRw FUNCTION_EXIT 


MSCPSW. STATUS (R25 ,- 


Be 80:18:27 EDRIVER.sReSTUDRIVER.maR:1 “2% 


: Branch around. 


; Branch around if NOT unit inoperative 


substatus. 


Return final status. 
Branch around. 


; Ready message for a new MSCP command. 
; Undo online with available command. 


eqne AVAILABLE to the server. 
zignes roqyees was canceled. 
t function. 


; Set software volume valid. 


4 
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T VER = TAPE CLASS DRIVER 16-SEP-19 1:01:17 AX/VMS Macro V04-00 Page 51 
—8 PACKACK Support Routines * SEp=| 984 60: 8:2 DRIVER. SR REIT UDRIVER.MAR; 1 7 (1) | 
— -SBTTL PACKACK Support Routines 
7 5 3¢ 
7 § 3; RECORD_ONLINE - copy data from ONLINE END MESSAGE to UCB. 
7 ; RECORD SETUNIT_CHAR = copy data from SET UNIT CHAR end Message to UCB. 
8 J ; RECORD _GETUNIT_CHAR = copy data from GET UNIT CHAR End Message to UCB. 
79 60 $ Inputs: 
79 ; Re => => Eng Message 
ae 
7 } Output | 
8 6 : ! Ri corrupted. 
3 66 : ALL other registers preserved. 
79 68 ; UCB fields set | 
F38 5590 * | 
38 8 RECORD_ONLINE: | 
—3 3 RECORD_SETUNIT_CHAR 
2 8 DO 0795 2274 MOVL MSCPSL_MAXWTREC(R2),- ; Copy maximum recommended write 
OOEC C 798 2275 UCBS$L_TU_MAXWRCNT(RS) : record size to UCB. 
28 8 80 0798 a MOVW MSCPSQ_NOISEREC(R2),.- ; Copy size of noise records to UCB. 
OOF4 C 79E 7 W_TU_NOISE(R3) 
07~=««11 gral 8 BRE RECORD. COMMON : Join common “'record’’ processing. 
| 
vA 80 RECORD_GETUNIT_CHAR: | 
7A Ht ASSUME MT$V_SUP_NRZI EQ 21 
7A ASSUME MSCPS$V_TF_800 EQ § 
7A 4 ASSUME MT$v_SOP_PE EQ 2 
7A 5 ASSUME MSCPSV_TF_PE £2 1 
7A 6 ASSUME MT$V_SOP GCR EQ 23 
7A ASSUME MSCPSV_TF_GCR EQ 2 
4443 03 15 24 A2 FO O7A 8 —38* —63 ae Copy supported tape densities to 
7AA 89 MTSV_SUP_NRZI, #3, -  ; DEVDEPEND. 
PAA 30 UCBSL-DEVBEPEND (RSS | 
hoes 3 RECORD_COMMON: | 
50 D O7AA 9 PUSHL RO : Save RO. 
14 A D O7AC 9 MOVQ MSCP$Q_UNIT_ID(R2),- 3; In the event of success, copy unit 
OOCC C 7AF 9 UCBSQ_ONIT_TD(R3) 3 characteristics data to 
1C A dO 78 9 MOVL MSePSE MEDTA_ID(R2),- ; Starting with the UNIT ID, followed 
008C C 78 9 UCBSt ACDIA TO(R3) : by the media identifier an 
F845" 30 3 9 BSBW DUTUSGET_DEVTYPE 3; device type. 
1FOU 8F AA 0788 ? BICW #MTSM_DENSITY,- : Clear density field in DEVDEPEND. 
44 A3 rer § UCBSL_DEVDEPEN ND(R3) 
50 20 A2 ; 7¢1 4 MOVZWL MSCPSW_FORMAT(R2) RO 3; Pickup MSCP density code. 
FC5D 6 te 5 BSBW MSCPTOUMS_DENS 3; Convert to VMS format. | 
so hC*F 7¢ $ INSV R ; inser’ — doraitty code into 
a? zc antsy. DENSITY. ~ ; DEVO | 
44 0 7cc UCBSL- ~DEVDEPEND (R3) 
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PACKACK Support Routines 
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05 


MOVW 
MOVW 
MOVW 
BBS 
ASSUME 
CLRL 
BRB 
MOVZWL 
MOVZWL 
BSBW 
INSV 


ASSUME 


DBBBRVCBCzsBcCz 
oo-1m 


ro 


$v_H 

Ucasy mScP_ WRTP GE 8 
<mT La -16> 

UCBs asi 


La@ 
UcosL — 
yeese. DEVST SFT CRS? 


:11 =VAX/VMS v04-00 Page * 


:27 (CDRIVER.S — RIVER.MAR; 1 


; Copy new unit flags from end packet. 
; Copy speed to UCB. 
; Copy format to UCB. 


URTPN : 
ORT PS>aq -8>,-; 
sr smat FLGS+1(R2) 


Branch if suppressing Variable speed 
mode. 


RO = default speed. 
Branch around. 


Get speed of unit. 
And density. 
Convert Speed to VMS value. 


Insert VMS speed value into UCB. 


: ; Assume device is not hardware write 


° 


cked. 
: ; Ditto for class driver write 


rotect flag. 
s the unit hardware or 
software write protected? 


; Branch if not write protected. 


; Else, set the hardware write 


Locked bit in DEVDEPEND. 
; Set class driver write 
; protect flag too. 


; Restore RO. 


; Return to caller. 


= TAPE CLASS DRIVER 16-SEP-1984 AX/VMS Macro V04-00 Page 
START_UNLOAD and START_AVAILABLE — 89; oh: }} DRIVER. SRE REIT TUDRIVER.MAR; 1 . 
1? -SBTTL START_UNLOAD and START_AVAILABLE 
14 : START_AVAILABLE = Prepare an MSCP packet to do an AVAILABLE command without 
1? | : the spindown modifier. 
14 $i ; START_UNLOAD = Prepare an MSCP packet to do an AVAILABLE command with 
1? : “spindown specified. 
14 § : INPUTS: 
12 9 Re => => 5 buffer 
14 6¢ : Re => POT 
1? 27 3 RS => CORP 
B14 68 3 MSCP packet is zero except for MSCPSL_CMD_REF and MSCP$W_UNIT fields. 
14 5367 ° 
sie 28 STA ST ant _REWINDOFF : 
sie $3 START_UNLOAD: 
10 AB 0814 71 BISW #MSCPSM_MD_UNL £00 3; Specify the UNLOAD bit in the 
OA A2 3] ie} MSCPSW_MODTFIER(R2) 3 modifier word. 
i ee START_AVAILABLE: 
08 90 18 6 MOVB #MSCPSK_OP sat ~ 3; Transfer AVAILABLE opcode 
08 A2 iA ue MSCP$B_OPCODE (R25 : to packet. 
3 a IF_IVCMD then=AVAIL_IVCMD_END ; Branch if invalid command processing. 
1 SEND_MSCP_MSG : Send message to remote MSCP server. 
4 ASSUME —8* VALID GE 8 : 
4 BICB <UCBSM_VALID @ -8>, - ; Initialize software volume invalid. 
3 ueese. STS+1(R3) 
7 7 DO_ACTION NONTRANSFER Decode ef end status. 
A 8 ACTION_ENTRY succ, $$ -NORMAL AVAILABLE_SUCC 
F 9 ACTION_ENTRY 34 55820 AVAILABLE_SUCC 
4 2390 ACTIONTENTRY PRES E. SS$_ SERIOUSEXCP, AVAILABLE ~SEREX 
9 91 ACTION_ENTRY FLN, SS$_MEDOFL, AVAILABLE _MEDOFL 
4 38 ACTION_ENTRY oBRTD. SS$_ ABOR AVAILABLE _ABORT 
9 ACTION-ENTRY DRIVE. SS$~DRVER Ra AVAILABLE DRVERR 
B 2394 ACTIONTENTRY CNT LR. SS$~CTRLERR, AVAILABLE -CTRLERR 
3 95 ACTION_ENTRY —* 88821RTERRA. AVAIL_IVCAD 
: 36 ACTIONTENTRY — END_ FABLE 
$ 38 BRW INVALID_STS : Unexpected MSCP end status. 
7 2400 AVAIL_IVCMD: 
7 2401 IVCMD_BEGIN : Begin invalid command processing. 
A 24 3 RW TU_BEGIN_IVCMD ; Repeat building the MSCP comman 
D 2405 AVAIL_IVCMD_END: 
D 2404 I * 3 fonplese invalid command RRL, 
: 2 6 3 sooo BRB AVAILABLE _SUCC ; Fall through to complete operation. 
F 24 
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START_UNLOAD and START_AVAILABLE 
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BISB 
ASSUME 
BICB 


AVAILABLE_SEREX: 
BRw 


a<<n 


imines 


MTSV-HUL 
MTSV LOST 
TS$M_EO 


SEp=1986 00:18:27 EDRIVER. SREITU 


! MTSM_EOT - 


! MTSM_HWL ! MTSM 


@-1 


#<MTS$ 


UCBSL 


LOST> 
EVBEPEND+2(R3) 
OT @ -16>, - 
_BDEVDEPEND+2(R3) 

UCBSV-MSCP_WRTP 


V 
D 
Action routine for M ST 
Action routine for M oo! 
Action routine for M ST 
Action routine for M ust 
Action routine for MSCPSK_ST_ 
Clear Serious Exception mode o 
becoming available. 

Reset Speed to default. 


Also reset bit. 
Clear tape position counter. 


; Clear position sensitive writelock 
A DEVDEPEND bits. 


Set BOT DEVDEPEND position bit. 


#<UCBSM_MSCP_WRTPa-8>,- ; Clear class driver write 
UCBS$W_DEVSTS#1(R3) 3 


FUNCTION_EXIT 


protect flag. 


TUDRIVER = TAPE CLASS DRIVER 16-SEP-1984 701: AX/VMS Macro V04-00 Pa 
—WB Start wRITeOF WRITEMARK, ERASETAPE, and gS EET bbe 83:93:34 DRIVER. SRCITUDRIVER.MAR; 1 — 
3 -SBTTL Start WRITEOF, WRITEMARK, ERASETAPE, and DSE. 
1 2440 ; START_WRITEMARK = Prepare an MSCP packet to do a WRITE TAPE MARK command. 
1 2441 ; STARTLERASETAPE = Prepare an MSCP packet to do an ERASE GAP command. 
! rr 3 START_DSE = Prepare an MSCP packet to do an ERASE command. 
1 2444 ; INPUTS: 
1 26465 ; R2 => MSCP buffer 
1 8 83 => UCB 
1 2647 ; R4 => PDT 
! 138 ; RS => CDRP 
: é31 : MSCP packet is zero except for MSCPSL_CMD_REF and MSCP$W_UNIT fields. 
J - 
881 138 START_ERASE TAPE: 
16 90 0881 2454 MOVB #MSCPS$K_OP_ERGAP,- 3; Transfer ERASEGAP opcode 
08 A2 885 455 MSCP$B_OPCODE (R25) ; _to packet. 
14 «11 $28 BRB WTM_ERASE_COM ; Branch around to common. 
0887 $286 START_DSE: 
1 90 0887 re = MOVB #MSCPSK_OP tyr} - : Transfer ERASE opcode 
08 A 0889 460 MSCPS$B_OPCODE (R25 ; to packet. 
0 E1 0888 2461 BBC #10$V_NOWAIT,- : If NOT nowait, branch around. 
co AS O88D 46¢ CORPSO FUNC (RS) ,~ 
0890 464 ASSUME MSCPSV MD" IMMED LE 7 
OA A2 40 8F 88 0 39 465 BISB #MSCPSA_MD_IMMED, - : If NOWAIT, then set proper TMSCP 
089 466 MSCP$W_MODTFIER(R2) : modifier in command message. 
04 11 +943 ret BRB WTM_ERASE_COM ; Branch around to common. 
0897 $$? START_WRITEMARK: 
0897 2470 START_WRITEOF: 
24 «90 88 41 MOVB #MSCPSK_OP_WRITM,- : Transfer WRITE TAPE MARK opcode 
08 A2 0899 47g MSCP$B_OPCODE (R25 ; to packet. 
3 ore WTM_ERASE_COM: 
soe $76 IF_IVCMD then=WRITM_IVCMD_END ; Branch if invalid command processing. 
4 44 SEND_MSCP_MSG 3; Send message to remote MSCP server. 
O8A 480 ASSUME MTSV_BOT GE 16 
A 481 ASSUME MTSV_EOF GE 1 
A 4 § ASSUME MTSV_EOT GE 1 
A 4 ASSUME MT$V baer GE 16 
46 43 17 8A A 484 BICB #<<MTS$M_BOT ! MTSM_EOF -; Clear position sensitive DEVDEPEND 
A 485 ! MTSM_ - 3 bits 
A 4 § ' MTSM_LOST> @ -16>, - 
Ni} 4 UCBSL_DEVDEPEND+2(R35 
ns 4 § DO_ACTION ord agen oy 3; Decode MSCP end status. 
A $39 ACTION_ENTRY SUCC, SS$_NORMAL, WRITM_SUCC 
AE 249 ACTIONTENTRY § ABRTO, SS$"ABORT WRI TM"ABORT 
49 ACTIONENTRY  OFFLN, SSS"DEVOFFLINE, WRITM~OFFLINE 
49 ACTION_ENTRY AVLBL, SS$_MEDOFL, WRITM_AVAIL 
D 2494 ACTION_ENTRY WRTPR, SS$_WRITLCK, WRITM-WRITLCK 
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= TAPE C Ass DRIVER 1grseb= 1386 8344 AX/VMS Macro V04-00 Page 56 
Start WRITEOF, WRITEMARK, ERASETAPE, and 5-SEP-1984 00:18: DRIVER. SRCITUDRIVER.MAR; 1 (1) 
cs 495 ACTION_ENTRY PRESE, SSS_SERIOUSEXCP, WRITM_PRESE 
¢ 138 ACTION_ENTRY CNTLR, SS$_CTRLERR, WRITM_CTRLERR 
cf 49 ACTION_ENTRY FMTER, SS$_CTRLERR, WRITM_FMTER 
D 498 ACTION-ENTRY DATA, SS$-PARITY, WRITM~DATA_ERROR 
D6 249 ACTION“ENTRY DRIVE, SSSDRVERR WRITM~DRVERR 
D 9 ACTION-ENTRY  PLOST, SSSICTRLERR, ERASEGAP_PLOST 
E ACTION_ENTRY ICMD, SSS_CTRLERR, WRITM_IVCMD 
E : ACTIONZENTRY — END_TABLE 
O78F 31 H ¢ BRW INVALID_STS 3; Unexpected MSCP end status. 
EA § WRITM_IVCMD: 
EA IVCMD_BEGIN : Begin invalid command processing. 
FD11 31 O8ED 25 : R TU_BEGIN_IVCMD ; Rebuild fatal MSCP command. 
8F WRITM_IVCMD_END: | 
+H 10 IVCAD_END : Complete invalid command processing. 
4 11 th 31) BRB WRITM_END : Branch around to end. 
8F4 218 ERASEGAP_PLOST: 
O8F4 2514 ASSUME MTS$V_LOST GE 16 
46 A3 10 88 O8F4 2515 BISB #<MTSM_LOST d -16>, = ; Set position LOST DEVDEPEND bit. 
O8F 218 UCBSL_BEVDEPEND+2(R3) 
O8F8 2517 WRITM_ABORT: 
O8F 313 WRITM_OFFLINE: 
O8F8 2519 WRITM-AVAIL: 
oer 520 WRITM_WRITLCK: 
FB 2521 WRITM-CTRLERR: 
O8F8 25 ; WRITM-FMTER: 
+H 525 WRITM_DORVERR: 
8F8 2524 WRITM-DATA_ERROR 
+H 525 WRITM_SUCC: 
0080 (3 08 O8F8 25 § TSTL UCBSL_RECORD(R3) : Previously at BOT? 
4 12 O8FC 25 BNEQ 10$ ; Branch if not previousiy at BOT. 
40 45 20 88 O8F 528 B1SB #CDRPSM_DENSCK, - ; Else, set density check required flag. 
0902 2529 CDRPS$L_BUTUFLAGS(R5) 
0080 C3 1C A2 00 090 530 10$: MOVL MSCPSL_POSITION(R2), - ; Update tape position information. 
090 531 UCBSL_RECORD(R3) 
3208 5 § WRITM_END: 
02 €1 090 5 BBC #MSCPSV_EF_EOT,- : See if we passed into End Of Tose 
OC 09 A2 90A 2534 MSCPS$B_FLAGS(R2) ,40$ 3 region, and branch around if NOT. 
90D 2535 ASSUME MT$V_EOT GE 16 
46 43 04 88 090D 25 — BISB #<MTSM_EOT @ -16>, - : Set EOT DEVDEPEND position bit. 
911 UCB$L_BEVDEPEND+2(R3) 
95 3 E9 0911 3 BLBC 4 3 if already an error, branch around. 
50 0878 BF 60 94 7 om MOVW  #SS$_ENDOF TAPE ,RO ; Return EOT. 
919 324 WRITM_PRESE: 
O3AC 31 0919 $542 BRW FUNCTION_EXIT : Branch to common exit. | 
| 
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= TAPE CLASS DRIVER 16-SEP-1984 01:01:1 AX/VMS Macro V04-00 P 57 
Start REWIND. $73] 986 80:48:27 EORIVER. SRCITUDRIVER.MAR; 1 (1), 


-SBTTL Start REWIND. 
START_REWIND = Prepare an MSCP packet to do a REWIND command. 
A Rewind Q10 request causes us to send an MSCP Reposition Command with 
WIND modifier set and both the MSCPSL_REC_CNT and 


MSCPSL —* CAT fields zero. If the user specifies IOSM_ROWAIT, then 


the MSCPPSM_MD_IMMED modifier is set in the command that is sent. 
INPUTS: 


Re => MSCP buffer 
RS => UCB 


R4 => POT 
RS => CDRP 


MSCP packet is zero except for MSCPSi._CMD_REF and MSCP$W_UNIT fields. 


ART_RECAL: 
ART_REWIND: 
MOVB #MSCPSK_OP per as - : Transfer REPOs. ION opcode 
MSCP$B_OPCODE (R25 > to packet. 
BISW & 3; Specify rewind. 


MSCPSA_MD_REWND,- 
MSCP$W_MODTFIER(A2) 
BBC #10$V_NOWAIT,- 
CORPSQ_FUNC(RS) ,108 
ASSUME MSCPSV-MD_IMMED LE 7 


#MSCPSA_MD_IMMED, - : If NOWAIT, then set proper TMSCP 
MSCPSW_MODTFIER(R2) : modifier in command message. 


; If NOT nowait, branch around. 


108: IF_IVCMD then=REWIND_IVCMD_END ; Branch if invalid command processing. 


SEND_MSCP_MSG ; Send message to remote MSCP server. 

DO_ACTI ort gga hy ; Decode MSCP end status. 

ACTION_ENTRY SUCC, SS$_NORMAL, REWIND_SUCC 

ACTION-ENTRY § ABRTO, SSS"ABORT, EWIND-ABORT 

ACTION_ENTRY PRESE, SSS$_SERIOUSEXCP, REWIND _PRE 

ACTION_ENR OFFLN, SSS_DEVOFFLINE, REWIND_OFFLINE 

ACTION_ENTRY AVLBL, SS$_MEDO REWIND_AVA 

ACTION-ENTRY  CNTLR, SSS-CTRLERR, REWIND-CTRLERR 

ACTION_EN TRY FMTER, SS$_CTRLERR, REWIND_FMT 

ACTION_ENIRY DRIVE, SS$_DRVERR REWIND_DRVERR 

ACTION_ENTRY ICM SSS"CTRLERR, REWIND_IVCMD 

ACTIONTENTRY — END_TABLE 

BRW INVALID_STS 3 Unexpected MSCP end status. 
REWIND_IVCMD: 

IVCMD_BEGIN : Begin invalid command processing. 

TU_BEGIN_IVCMD ; Rebuild fatal MSCP command. 

REWIND_IVCMD_END: 

IVCMD_ ; Complete invalid command processing. 

BRB REWIND_END : Branch around to end. 


11 
wees ject atas. ve 'CSESHOEE SU:ALD} WOMQER.SRESRSREE mass 


1C A é renin ~ hove MSCPSL_POSITION(R2) d i 
0085 cg ; ORD(RS) ; Update positon on tape. 
5 


9 
9 
9 3; This should be a NOP. 
9 
: 
46 43 16 8A 4 
9 
9 
9 
9 
9 
9 


6 
6 ASSUME 59 
rst 1cB acca M “EOF ! ore — 9 Sleer position sensitive DEVDEPEND 
-; S. 
ee yess DEVDEPEND »2R35 
46 43 01 88 33 BISB a<m BOT @ -16> ; Set BOT DEVDEPEND position bit. 
61 UCBSL. DEVDEPENDS2(R3) 
614 30S: 
615 REWIND_ABORT: 
4 616 REWIND-OF FLINE: 

984 2617 REWIND-AVAIL: 

984 213 REWIND_FMTER: 

984 2619 REWIND-CTRLERR: 

984 2620 REWIND-DRVERR: 

0984 2621 REWIND_PRESE: 

49 6 ¢ REWIND_END: 

0341 31 0984 26 BRW FUNCTION_EXIT ; Branch to common exit. 


—8B 


987 2625 
987 26 § 
987 26 
987 26 8 
987 26 
987 2630 
987 2631 
987 26 ¢ 
987 26 
987 2634 
J 
aH Ss 
987 26 8 
987 26 
4 640 
0987 2641 
0987 zuů 
0987 264 
0987 2644 
0987 2645 
0987 2646 
0987 2647 
0987 2648 
51 10 A2 X 0987 2649 
04 11 0988 2650 
098D 2651 
098D $26 
098D 265 
098D 2654 
51 OC A2 9E 098D 2655 
0991 2656 
0991 2657 
25 90 0991 2658 
08 * 0993 2659 
50 DBA 32 0995 2660 
09 18 8 661 
50 50 CE 0998 266 
08 48 099 66 
OA Ae O9A 664 
14 11 Q9A 665 
O9A4 606 
O9A4 266 
94 098 
9A4 08 
9A4 2670 
9A4 2671 
OF CA AS 08 €0 OQ9A4 83 
9A9 267 
05 38 43 13 «=6E1 «=(Q9A9 «2674 
9AE 2675 
05 38 AS) 18 ~=6—E1 8024 O78 
985 267 
98 o78 
OA A2 80 8F 88 098 67 
98 680 
98 681 
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“-SEP-19 8:27 (CDRIVE 
-SBTTL Start Space Records and Space Files. 


Macr 
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mm 


- Prepare an MSCP packet to do a REPOSITION command 
so as to Skip files. 


Prepare an MSCP packet to do a REPOSITION command 
so as to Skip records. 


zm Orn 
na ew 
am m——_ 
on mre 
Do 

a? 
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; INPUTS: 
R2 => MSCP buffer 
> UCB 


> PDT 


RS => CORP 
CDORPSL_MEDIA = # of records or files to 
skip (word count in longword field). 


MSCP packet is zero except for MSCPSL_CMD_REF and MSCP$W_UNIT fields. 


zw 
mewn 


TART_SKIPFILE: 
TART ~SPACEF ILE: 


MOVAB 
BRB 


START_SKIPRECORD: 
START ~SPACERECORD: 


MOVAB MSCPSL_REC_CNT(R2),R1_ ; 
SKIP_COMMON: 
MOVB 


8 
8 


MSCPSL_TMGP_CNT(R2),R1 ; R1 => field to fill in for skip files. 
SKIP_COMMON ; Branch around to common code. 


R1 => field to fill in for skip records. 


V #MSCPSK_OP_REPOS,- : Transfer REPOSITION opcode 
MSCP$B_OPCODE (Re) ; _to packet. 
CVTWL 4  CORPSL_MEDIA(RS) ,RO : Pickup # records to skip. 
BGEQ 10$ 3; GEQ implies positive (forward) movement. 
MNEGL RO,RO 3; Get absolute value of # to skip. 
ISwW #MSCPSM_MD REVRS,=- ; Set modifier to indicate reverse 
MSCPSW_MODIFIER(R2) 3 _motion. 
BEB 17$ : If reverse, then do NOT try to detect 


LEOT, so branch around. 


10$: ; Detect LEOT is performed on all tapes NOT mounted ANSI. That is, 
; all tapes either NOT mounted or mounted Foreign. The only exception 
: is for physical 1/0 requests. 
BBS thee aig - : If physical 1/0 function, branch 
CORPSW_STS(R §, 178 3; _around setting to Detect LEOT. 
BBC V$SV_MNT, = :; If Tape NOT mounted, go try to Detect 
UCBSL_BEVCHAR(R3), 148 ; LEOT. 
BBC Vv 2 ; If NOT foreign, than ANSI, so branch 
UCBst BEVCHAR(R3), 17% ; around setting to Detect LEOT. 
14$: ASSUME MSCPSU_MD DLEOT LE 7 
BISB #MSCPSA_MD_DLEOT, - : Set modifier to ask to Detect LEOT. 
MSCPS$W_MODTFIER(R2) 


C 12 


TUDRIVER - TAPE CLASS DRIVER 16-SEP-1984 01:01:11 VAX/VMS Macro V04-00 Page 60 
—WB Start Space Records and Space Files. iets 8b; 9B: 27 DRIVER.SRCITUDRIVER.MAR; 1 . (1) | 
61 50 00 308 $ § 17$ MOVL RO, (R1) ; Put Mrecords(files) to skip in packet. | 
* IF_IVCMD then=SKIP_IVCMD_END ; Branch if invalid command processing. 
Hy 2 § SEND_MSCP_MSG 3; Send message to remote MSCP server. 
9C2 26 8 ASSUME MT$V_BOT GE 16 
9C 6 ASSUME MTSV_EOF GE 16 
9C 690 ASSUME MT$V_EOT GE 16 
9C 691 ASSUME MT$V hp! GE 16 
46 A3 17 BA O9C 036 CB #<<MTSM_BOT ! MTSM_EOF -; Clear position sensitive DEVDEPEND 
096 69 | MTSM“EOT = : bits 
9C 694 ! MTSM_LOST> @ -16>, - 
O96 69 UCBSL_DEVDEPEND+2(R35 
09C6 2697 DO_ACTION TRANSFER ; Decode MSCP end status. 
09C9 2698 ACTION_ENTRY SUCC, SS$_NORMAL SKIP_SUCC | 
9c $99 ACTION-ENTRY ED, SSS$TENDOFVOLUME, SKIPTLEOT 
09D 00 ACTION_ENTRY ABRTD, SS$_ABORT, SKIP_ABORT | 
0908 2701 ACTION_ENTRY RESE, SSS_SERIOUSEXCP, SKIP_PRESE 
09DD re ACTION_ENTRY OFFLN, SS$_DEVOFFLINE, SKIP_OFFLINE | 
O9e¢ £0 ACTION-ENTRY VLBL, SSS~MEDOFL SKIPTAVAIL 
09E? 2704 ACTIONTENTRY §CNTLR. SSS-CTRLERR, SKIP~CTRLERR | 
O9EC 705 ACTION_ENTRY FMTER, SS$_CTRLERR, SKIP_FMTER 
O9F 1 706 ACTION_ENTRY DRIVE, SS$_DRVERR, SKIP_DRVERR | 
09F6 2707 ACTION-ENTRY OT, | SS$~NORMAL SKIP~BOT | 
O9FB 2708 ACTIONENTRY §TAPEM, SSS-ENDOFFILE, | SKIPTEOF | 
0A00 2709 ACTION“ENTRY LOST. SS$"CTRLERR, SKIP~PLOST | 
QA0S 2710 ACTION_ENTRY ICMD, SS$_CTRLERR, SKIP_IVCMD 
AOA ay ACTIONZENTRY — END_TABLE 
066A 31 page ag BRW INVALID_STS ; Unexpected MSCP end status. | 
QAOF 2715 SKIP_IVCMD: 
OAOF 2716 IVCMD_BEGIN : Begin invalid command processing. 
FBEC 31 OA 717 R TU_BEGIN_IVCMD ; Rebuild fatal MSCP command. 
OA 218 SKIP_IVCMD_END: 
OA 71 IVCMD_END : Complete invalid command processing. 
A 720 3; ences BRB SKIP_ABORT ; Fall through to finish skip operation. | 
A 721 SKIP_PRESE: 
A 7 : SKIP~ABORT 
OA 723 SKIP~OFFLINE | 
A 724 SKIPTAVAIL: 
50 50 10 9C OA 725 ROT #16,R0,R0 : Move SS$_ code into low order. 
343 11 A , 6 BRB SKIP_END ; Branch around to end. 
| 
OA 7 : SKIP_PLOST: 
A 7 ASSUME MT$V_LOST GE 16 | 
46 43 10 88 OA 730 1SB #<MTSM_LOST @ mh - 3 Set position LOST DEVDEPEND bit. 
A 731 UCBSL_BEVDEPEND+2(R3) | 
OA 11 OA 7 ¢ BRB SKIP_SUCC : Rejoin common code. 
A 735 SKIP_EOF: 
A 734 ASSUME MTSV_EOF GE 16 
46 A3 02 88 OA 735 BISB #<MTSM_EOF @ -16>, - : Set EOF DEVDEPEND position bit. 
Ag? 3736 UCBSL_BEVDEPEND+2(R3) or | 
04 11 OA 7 BRB SKIP_SUCC ; Rejoin common code. 
A 738 SKIP_BOT: 


04 09 A2 
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88 OAZ9 274 Bl #<MTSM_BOT @ -16> ; Set BOT DEVDEPEND position bit. 
AeD 274 UCBSL SEVDEPEND+2(R3) 
420 2742 ; — BRB Sk 1P_Suc ; Rejoin common code. 
ACD 2743 SKIP_FMTER: 
A2D 744 SKIP_CTRLERR: 
A2D 2745 SKIPZDRVERR: 
A2D reg SKIP_SUCC: 
A2D 2747 SKIP“LEOT: 
E1 OA oe BBC #MSCPSV_EF_EOT 5 fe tape in the EOT region? 
A 74 MSCP$B FLAGS(RE), : Branch if tape not in EOT. 
A reo ASSUME MT sve 5, 
88 OA 7 BISB #<mT$ ‘ns : Else, set EOT DEVDEPEND position bit. 
" ° 23 UCBSL "SEVDEPEND®2(R3) 
DS 0A36 754 10$ TSTL YeBsl_ RECORD(R3) : Previously at BOT? 
12 06434 2755 BNEQ ; Branch if not previously at BOT. 
88 OA3C £38 BISB —— DENSCK, = 3; Else, set density check required flag. 
ALO 275 CDRPSL -BUTUFLAGS (R5) 
DO 9440 2758 15$ MOVL MSCPSL-POSITION(R2), = ; Update tape position information. 
A46 2759 UCB$L_RECORD(R3) 
C1 QA4&46 2760 ADDL3 MSCPSC_RCSKIPED(R2),- ; Add records and tapemarks skipped 
9449 «2761 MSCPSL-TMSKIPED(R2),R1 ; so as to return to user. 
79 pass 66 — on™ #-16,R0,R0 3 Shift count and SS$_ — into position. 
31 0451 64 FUNCTION_EXIT ; Branch to common exit. 
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-SBTTL Start a SETCHAR or a SETMODE function 


; START -SETCHAR and staat SE TMODE 
“The quad-word of data for the operation is contained in {RPSL MEDIA. 
This PHYSIC CAL 170° functi on and the ‘‘LOGICAL’’ 1/0 functio 
SET MODE are almost identical. The only difference 1s that while 
both allow for the setting of: 


- Default buffer s ize 

- Tape density (180 BPI or 6250 BPI). 
- Tape format 

- Serious Exception mode 


the former function (i.e. SET CHARACTERISTICS) a 
the Eggettong of the DEVICE CLASS and the DEVICE 


Wwnm— 


lso a 
TYPE 
The first two vs of the QUADWORD of data at IRPSL_MEDIA contain 
the DEVICE CLASS and DEVICE TYPE respectively for a SETCHAR. 

The next word of the QUADWORD contains the new buffer size. The 
third word contains new density and format information. The fourth 
word of the QUADWORD is reserved. 


INPUTS: 
R2 => MSCP buffer 

R35 => UCB 

R4 => PDT 

RS => CDRP 


Se Se Se Ge Se Ge Se Ge Ge Ge Se Se Ge Ge Se Gee Se Ge Se Ge Se Ge Se Ge 
- 
=> 
e 


START_SETCHAR: 
ASSUME UCBSB_DEVTYPE EQ UCBSB_DEVCLASS+1 
MOVW CORPSC_MEDIA(R5S) ,UCBSB_DEVCLASS(R3) : Reset CLASS and TYPE. 


START_SETMODE : 
MOV CORPSL_MEDIA+2(R5) ,UCBSW_DEVBUFSIZ(R3) ; Copy new buffer size. 
START_SEQNOP Synchronize class driver - server 


communications so that only this 
thread is sending commands to the 


server. 
ASSUME CDRPSV_CAND EQ 0 
BLBS CDRPSL~DUTUFLAGS(R5), = ; Was 1/0 request canceled? 
SETMODE _CANCEL ; Branch if request was canceled. 
MOVB #MASCPSK_OP_GTUNT,- ; Opcode is for GET UNIT STATUS. 


M 
ASSUME MSCPSV"MD 
BICB * 


@-8>,- ; The clear serious execption modifier 
MSCP R2) ; is illegal on get unit status cmds. 
SEND_MSCP_MSG ~ 3; Send message to remote MSCP server. 


IF _MSCP SUCCESS, thensSt TROSE _ ONL INE Branch if GTUNT pyccees tut. 


IF : Gver? ide sequence checking an 
BSBy OVERRIDE _SEQCHK 3 remove sequence number from array. 
MOVZWL #SSS$_MEDOFL, RO ; Setup final 1/0 status. 
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ABE SETMODE =ABORT: 
ABE 4 SE TMODE— OF F LINE: 
ABE SE TMOD ~CTRLERR: 
ABE § SETMODE~ _DRVERR: 
8 EF A “EXTZV aMTsyv DENSITY,= 
A 8 #MTSS-DENSITY,- 
51 DCA Ag CORPSE PREDIASS(RS) .R1 ; Extract user des ongteg DENSITY parameter. 
51 FO OA94 0 INSV R1,- 3; And insure that UCBSL_DEVDEPEND winds 
Ad 1 antsy _DENSITY,= 3 up with the correct Value for DENSITY 
05 = «(OO Ag § #MTSS_DENSITY,- 
44 A NS Z UCBSL~ _DEVDEPEND (R3) 
ASA 5 SETMODE_CANCEL: 
0080. 31 ws § BRW SETMODE RETURN ; And branch around. | 
9— SETMODE _ONLINE: 
ASD 40 ASSUME CDRPSV_CAND EQ 0 | 
ED 40 AS E€8 OA9D 41 BLBS CORPS$L-DUTUFLAGS(R5), 3; Was 1/0 request canceled? 
8 8 SETMODE aoe B : Branch if request was canceled. 
08 EO OAAI 4 BBS #MT$v_ERSE : Branch if Serious Exception explicitly 
06 DC A AAS 44 CORPSE REDIAGS (AS), 10$ ; enabled. 
04 CA OAA 45 BICL pai sn REXCP 3 Else clear Serious Exception mode. 
44 A3 AA 8 presi. DEVDEPEND(R3) | 
06 11 oe, rf 108 BRB 08 3; And branch around. 
046 C8 OQOAAC 8 BISL #MTSM_ENSEREXCP,- : Enable Serious Exception mode. | 
44 A3 —*8* 9 208 UCBSL~ “DEVDEPEND (R3) 
2 : BO OAB 3 novu = MSCPS$W_FORMAT(R2),- ; Copy format to UCB before recycling | 
OOFO ¢ DABS 33 UCB$W_TU_FORMAT (R$) : end message. 
098s 23 RESET_MSCP_MSG ; Setup message buf. etc. for reuse. 
4 33 SETMODE_BEGIN_IVCMD: 
OA 90 OABI 38 MOVB —8* OP_STUNT,=- 3; Transfer Set Unit Characteristics 
08 A2 4 9 MSCP$B_OPCODE(R Ros 3 opcode to packet. 
00EO c3 80 OABD 8 novu UCBS$W_UNIT_FLAGS(R3).- ; Copy unit flags to MSCP packet. 
OE A2 AC 63 MSCP$Q_UNT~FLGS (Re) | 
0008 C3 —~»00 nes 65 MOVL uses ae ry hae 73 Copy device dependent parameters to | 
1C A2 *8 8 MSCPSC_DEV_PARM(R2) 3 P packet. | 
0080 ¢3 D5 QAC9 8 TSTL yeast. RECORD(R3) : Is tape af BOT? | 
19 12 OACD $ BNEQ : Skip density setup if not at BOT. 
68 EF OACF 9 EXTZV #MT$V “BENS ITY. - : Determine density that the user has 
AD1 7 #MTss~ 3 specified for this unit 
50 oc A5 ibs es CORPSE PAEDIASA CRS), RO : and put into RO. 
F934 30 OAD 74 BSBW NASTORSCP. DENS ; Convert VMS density to MSCP format. 
09 E8 OAD8 75 BLBS 3; LBS means successful conversion. 
EF OADB 2 EXTZV eat V -DENSITY, - : ie Bens oe density that the user has 
ADD 7 #ATSS"DENSITY 3; last ontges tenes for this unit 
50 444A AD 4 UCBSL SDEVDEPEND(R3) RO ; and put 
F928 30 dat 7 BSBW VASTORSCP. ENS > Convert VMS _ to MSCP format. 
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AES 30$: 
20 422 51 80 Ace MOVW R1,MSCPSW_FORMAT (R2) ; Copy MSCP density to packet. 
ne 35$: ASSUME MTSK_SPEED_DEF EQ 0 
1 EF OAE 4 EXTZV #mT$0_SPEEB,- : Extract user specified speed. 
0 AEA 5 rte SPEED,=- 
50 DCA AEB $ CORP C_MEDIA+4(R5) ,RO 
M AE BEQL 40$ 3; EQL implies default. 
F930 3 AF : BSBW SPEEDTOMSCP 3; Convert speed to MSCP format. 
A AF BISW #MSCPSM_UF_VSMSU,- ; Enable variable speed mode suppression. 
OE A AF BSCPSu_ONT=FLGS(R2) 
06 11 wi 4 40s BRB 50$ 3; And branch around. 
3 AA OAF9 9 . BICW #MSCPSM_UF_VSMSU,- ; Disable variable speed mode suppression. 
OE A Are 34 * MSCPSW_ONT-FLGS(R2) 
22 a2 50 B80 ar 3 "  MOVW = RO, MSCPSW_SPEED(R2) ; Place speed value into packet. 
F966 30 a 38 BSBw SET_CLEAR_SEX : Set SEX if called for. 
8 44 IF_IVCMD then=SETMODE_IVCMD_END ; Branch if invalid command processing. 
a8 Ons SEND_MSCP_MSG ; Send message to remote MSCP server. 
0B 2904 DO_ACTION NONTRANSFER 3; Decode MSCP end status. 
of 905 ACTION_ENTRY SUCC SS$_NORMAL SETMODE _SUCC 
13 290 ACTIONTENTRY  PRESE, SSS SERIOUSEXCP, SETMODE RETURN 
18 30 ACTIONENTRY § ABRTD, SSS$~ABORT ETMODE~ ABORT 
1 908 ACTION_ENTRY ICMD, SS$~BUGCHECK, SETMODE_IVCMD 
909 ACTION_ENTRY OFFLN, SSS$_MEDOFL, SETMODE _OF FLINE 
910 ACTION_ENTRY AVLBL, SS$_MEDOFL SETMODE _OFFLINE 
C 2911 ACTIONENTRY  CNTLR, SSS~CTRLERR, SETMODE-CTRLERR 
1 aig ACTION_ENTRY FMTER, SS$_CTRLERR, SETMODE _CTRLERR 
6 291 ACTIONENTRY DRIVE, SSS-DRVERR, SETMODE -DRVERR 
: a ACTION_ENTRY END_TABLE 
0539 31 33D 318 BRW INVALID_STS 3; Unexpected MSCP end status. 
18 SETMODE_IVCMD: 
: 91 IVCMD_BEGIN : Begin invalid command processing. 
FF73 31 «OE 920 SETMODE _BEGIN_IVCMD ; Rebuild fatal MSCP command. 
B46 «42921 SETMODE_IVCMD_END: : : 
- 9 § IVCMD_ : Complete invalid command processing. 
es WW pee 4 ? BRB SE TMODE _RETURN 3; Complete setmode operation. 
BGA 929 SETMODE_SUCC: 
FC48 30 BAA , $ BSBW RECORD_SETUNIT_CHAR 3; Record data from End Message in UCB. 
B4D 09 § SETMODE_RE TURN: 
B4 930 END_SEQNOP : End synchronized class driver - 
363 931 3 server communications. 
0162 31 086 932 BRW FUNCTION_EXIT ; Terminate 1/0 request. 


<-— 
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é : : -SBTTL Start SENSECHAR and SENSEMODE functions. 
4 3 § ; START_SENSECHAR and START_SENSEMODE. 
938 ; INPUTS: | 
939 ; Re => MSCP buffer 
940 ; R35 => UCB | 
? 941; R4 => PDT 
38 RS => CDRP 
6 945 ; 
6 944 | 
66 945 START_SENSECHAR: 
38 START_SENSEMODE : 
03 90 és * MOVB #MSCPSK_OP_GTUNT,=- : Opcode is for GET UNIT STATUS. 
08 A2 68 294 MSCP$B_OPCODE (R25 
6A 2950 ASSUME MSCPS$V_MD_CLSEX GE 8 
20 84 6A 32 cB #<MSCPSM_AD CLSEX@-8>,- ; The clear serious execption modifier 
OB A2 OB6C 29 SCP$W_MODIFIER+1(R2) ; is illegal on get unit status cmds. 
pase iT SEND_MSCP_MSG ; Send message to remote MSCP server. 
84 955 IF MSCP SUCCESS, then=SENSEMODE_ONLINE ; Branch if GTUNT successful. 
50 O1A4 BF 3C 0877 996 MOUZWL #SS$_MEDOFL,RO ; Mark final 1/0 status. 
06 11 oB7¢ 997 BRB SENSEMODE _RETURN : And branch around. 
84 3 SENSEMODE _ONLINE: 
FC22 30 OByE 961 BSBW RECORD_GETUNIT_CHAR ; Copy data from End Message to UCB. 
50 01 C aB8e 306 MOVZWL #SS$_NORMAL, RO ; Setup successful completion status. 
0B84 2964 
0141 31 0884 965 BR FUNCTION_EXIT 


SENSEMODE we 
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MSCP packet is zero except for MSCPSL_CMD_REF and MSCP$W_UNIT fields. 


START _WRITECHECK: 


7 ~SBTTL START_READPBLK and START_WRITEPBLK and START_WRITECHECK 
§ : START_READPBLK = Prepare an MSCP packet to do a READ command. 

; ; START_WRITEPBLK = Prepare an MSCP packet to do a WRITE command. 

3 ; START_WRITECHECK = Prepare an MSCP packet to do a COMPARE HOST DATA command. 
75 ; INPUTS: 

6 ; Re => MSCP buffer 

73 R3 => UCB 

4 $ R4 => PDT 

3 RS => CORP 

3 

i 

i 


WOOOOOODOOOOOOOVOOOOOOOO 


* — © ee 


| 
| 
| 
nable lsb 


20 90 OB MOVB #MSCPSK_OP_COMP,- 3; Compare host data opcode 
08 A2 08 88 MSCPSB OPCODE (RS) : to packet. 
06 =«€1 9 BBC Fiosy REVERSE,- ; Branch around if NOT reverse. 
23 CO AS OB8D 2990 CDRPSQ_FUNC(R5) ,20$ 
08 as 0B9 991 BISW #MSCPSA_MD AEuass - ; Else set reverse modifier. 
OA A2 8 99 MSCPSW "AODIF IER CR R2) 
1D 11 8 64 BRB ; And branch around to join common code 
8 +44 START_WRITEPBLK: 
22 90 O89 997 MOVB #MSCPSK_OP_WRITE,=- : Transfer WRITE opcode 
08 A2 0B9 998 MSCP$B_OPCODE (R25 3 to packet. 
OD 11 pen 8 RRB 10$ 
8 Bb) START_READPBLK: 
21 90 tt 008 MOVB #MSCPSK_OP_READ,=- : Transfer ang opcode 
08 A2 9 004 MSCP$B_OPCODE (RE) > to packet 
06 E1 8 BBC #10$V_REVERSE,- : Branch around if NOT reverse. 
04 CO A 00 cORPSO FUNC(R5) ,10$ 
8 As OBA 08 BISW SCPSA_MD_REVRS,- : Else set reverse modifier. 
OA A2 Scpsy _MODTFIER(R2) 
BAS Ee 10s: | 
0 E1 OQBA9 \ BBC #10$V PRUNE CRS) 7 3; See if user specified compare in 
05 COA BAE 1 CORP$Q_FUNC(RS) ,20$ : addition to data transfer. If not, branch 
BAE 14 ASSUME — MD COMP GE H 3; Else, set the read/write with 
0B A2 440 BF 88 «(OB 15 BISB #<MSCPSM_AD COMPa-8>, - ; data compare modifier. 
BE 1 * MSCPS$W_MODIFIER+1 (R25 
3E 18 ; IF _IVCMD then=70$ : Branch if invalid command processing. 
30 45 9t 66 MOVAB CDRPST_LBUFHNDL(RS).- ; Put address of Local BUF fer HaNDLe 
2c AS BBA CORPSL-LBUFH_AD(R5) : field into field that points to it. 
BBC § MAP_IRP 3 * mapping resources and load 
BBF 3 hem with data from SVAPTE, BOFF, 


<- 
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; and BCNT derived from IRP within 
: CORP. 


WM OETNSNOFT OFFS OOOOOOWOPAOOWNOCVITDOOwn nn 


52 1 a 0 MOVL CORPSL_MSG_BUF (R5) ,R2 3; Refresh R2 => MSCP packet. 
; A D 70$:  MOVQ  CDRPST“LBUFHNDL(RSS,-  ; Copy contents of buffer handle to 
A MSCPS$B_BUFFER(R2) ; _MSCP buffer descriptor field. 

38 A dO MOVL Le Ut th ; Buffer handle is 96 bits (12 bytes) 

18 A MSCPSB_BUFFER+8(R2) : in length. 

p AS 00 MOVL  CDRPSL“BCNT(RS),- 

C A2 MSCPSL—BYTE_CNT(R2) ; Copy byte count of transfer. 

IF_IVCMD then=XFER_IVCMD_END : Branch if invalid command processing. 
enable Lsb 3; Start a new local symbol block. 


SEND _MSCP_MSG 


ASSUME MTSV_BOT GE 16 
ASSUME MTSV_EOF GE 16 
ASSUME MTSV_EOT. GE 19 


Send message to remote MSCP server. 


FSLSOHSOSOSO SO SO SOHO SO SSO SO SOROS OOS 
NHN MMMMMoOOOCOSVTVTVVIVTVTVTVTVTVTVTTVVAMOOOoG 
SIDS DDS DS DS DDD TTT EB ES BS EE IAAI II III ——— 
ee 


=O OO SO o WIN OS OO NA ODNAUE WN O OODNAUE 


0 
0 
0 
0 
0 ASSUME Bisv LOST GE 
46 AS 17 8A 0 BICB #<<MTSM_BOT ! MTSM_EOF -; Clear position sensitive DEVDEPEND 
0 ! MTSM_EOT - ; bits. 
0 ' MTSM_LOST> @ -16>, - 
9 UCBSL_DEVDEPEND+2(R35 
0 DO_ACTI TRANSFER ; Decode MSCP end status. 
0 ACTION_ENTRY  SUCC, SS$_NORMAL TRANSFER_RTN_RECLEN 
0 ACTION_ENTRY PRESE, SS$~SERIOUSEXCP, TRANSFER_PRESE 
0 ACTIONTENTRY § ABRTD. SS$-ABORT, TRANSFER-RTN_BCNT 
0 ACTION-ENTRY  ICMD, SSS$-CTRLERR TRANSFER—INVALID_ COMMAND 
0 ACTION-ENTRY COMP, SSS"DATACHECK, | TRANSFER~COMPERR 
0 ACTION_ENTRY OFFLN, SSS$_MEDOFL, TRANSFER_MEDOFL 
0 ACTION_ENTRY AVLBL, SSS$_MEDOFL TRANSFER_MEDOFL 
8 0 ACTION_ENTRY TAPEM, SS$~ENDOFFILE, TRANSF ER_EOF 
0cos8 30 ACTION_ENTRY BOT SSS_ENDOFFILE, TRANSFER_BOT 
OCOD 30 ACTION_ENTRY PLOST, SS$_CTRLERR TRANSFER_PLOST 
C12 30 ACTION-ENTRY = RDTRN. SSS-DATAOVERUN, TRANSFER-RTN_RECLEN 
C17 30 ACTION-ENTRY DATA, SS$~PARITY RANSFER-DATA_ERROR 
cic 30 ACTION_ENTRY HSTBF, $S$~1VBUFLEN, TRANSFER_HOST_ BUF FER_ERROR 
C21 ACTION_ENTRY CNILR, SS$_CTRLERR, TRANSFER_CTRLERR 
C26 ACTION“ENTRY  FMTER. SS$7CTRLERR, TRANSFER-RTN_BCNT 
C28 30 ACTIONTENTRY DRIVE. SSSTDRVERR, TRANSFER-RTN-BCNT 
t ACTION“ENTRY  WRTPR, SSS"WRITLCK, TRANSFER-RTN-BCNT 
C 0 ACTIONTENTRY — END_TABLE 
043F 31 : : BRW INVALID_STS ; Unexpected MSCP end status. 
CSA 72 XFER_IVCMD_END: 
3A Cid ¢ ‘ v BRE TRANSFER_IVCMD_END : Branch assist. 
C3C 75 
csc 76 TRANSFER_PLOST: 
36 7 ASSUME MTSV_LOST GE 16 
46043 10 88 OC ? BISB #<MTSM_LOST @ -16>, - ; Set position LOST DEVDEPEND bit. 
C4 7 UCBSL_DEVDEPEND+2(R3) 
OA 11 O0C4 80 BRB $ 3; Join common code. 
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D2 


06 
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: 


0 
: 


TRANSFER_EOF : 
KSSUME MTSV_EOF GE 16 
BISB #<MTSM_EOF @ -16>, - 
CBSL_DEVDEPEND+2(R3) 
BRB $ 
TRANSFER_BOT: 
KSSUME MT$V_BOT GE 1 
BIS #<MTSM_BOT @ -16>, - 
YeBS DEVDEPEND+2<R3) 
: coo BRB 0$ 


300$: CLRL Ri 
BRW TRANSFER_SHIFT 


TRANSFER_PRESE: 


1 
#-16,R0,RO 

BRW FUNCTION_EXIT 

TRANSFER_CTRLERR: 
EXTZvV #MSCPS$S_ST_MASK,- 

#16-MSC MASK, = 

MSCP$W_STATUSTR2) ,R1 

CMPW sMSCPSR_SC_DLATE RI 


MOVL #SS$_DATALATEQ16,R0 
258: BRW TRANSFER_SHIFT 


TRANSFER_INVAL1D_COMMAND : 


IVCMD_BEGIN 
TU_BEGIN_IVCMD 


TRANSFER_IVCMD_END? 
TVCMD_END 
BRB 3008 


TRANSFER_MEDOFL: 
BBC #MSCPSV_SC_INOPR,- 
TRANS BCN 
MOVL  #SS$_DRVERR@T6,RO 
BRB TRANSFER_RTN_BCNT 
TRANSFER_HOST_BUFFER_ERROR: 
EXTZV #MSCPSS_ST_MASK,- 
#16-MSC 
c 
BEQL §TRANSFER_RTN_BCNT 
BRW INVALID_STS 
TRANSFER_DATA_ERROR: 
TRANSFER_COMPERR: 


: Set EOF DEVDEPEND position bit. 
; Join common code. 


: Set BOT DEVDEPEND position bit. 
Join common code. 


Set zero bytes transfered. 
Branch around. 


R1 = number of bytes transferred. 
Shift into proper position for 10SB. 
Complete function immedately. 


Extract the sub-code only. 


Compare to Data Late error. 
Branch around if not Data Late. 
Set SSS_DATALATE into high word. 
Branch fo common code. 


Begin invalid command processing. 
Rebuild fatal MSCP command. 


Complete invalid command processing. 
Complete the function. 


Branch around if NOT unit inoperative 
substatus. 


Else set up RO with proper SS$_ code 
in high order word and 
Branch around. 


Extract the sub-code only. 


; Compare to Odd Byte Count error. 
; Branch around if Odd BCNT. 
Here we got an invalid MSCP status. 


; TRANSFER action routine for MSCPSK_ST_DATA 


— — 


Se eee eS ee he 
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TRANSFER_RTN_BCNT: 
TRANSFER-RTN_ “RECLEN: 


MOVL MSCPSL_BYTE_CNT(R2),R1 


Common TRANSFER action routine. 
Here RO contains SS$_ code in hi order.. 
Get # bytes actually” trensterred. 


8 
— 
51 OC A2 00 : 
C 


1 
13 
14 
14 
14 
3 44 8 TRANSFER_SHIFT: 
50 50 Ff08F 79 8 132 ASHQ #-16,R0,R0 ; Shift into proper position for 10SB. 
cor 149 NORMAL _TRANSFEREND: 
0409 A2 O03 €E1 OCOF 314 BBC #MSCPSV_E - $ Is tape in the EOT region? 
CAS 315 MSCPSB FLARE a - 65$ ; Branch if tape not in EOT. 
CA4 315 ASSUME MTS$V ri. 
46 A3 04 88 OCA4 13 BISB #<MTSM 16>, = : Else, set EOT DEVDEPEND position bit. 
CA 15 * A ea 
0D 50 €9 OCA 154 65$: BLBC R 0s : Branch if already returning an error. 
OA A2 0400 8F 81 OCAB 3155 CMPW #<ASCPSH sc. EOT - 3; Was a EOT subcode returned on a 
cB1 128 r-SuEc>, - 3 success command status? 
CB1 15 mscPsu. lo 
05 i cB1 3158 BNEQ 70$ : Branch if not EOT. 
50 0878 8F 8B Oca 3 MOVW #SSS_ENDOFTAPE, RO ; Else, return EOT status. 
0080 ¢3 DS OCB8 3161 70$: TSTL UCesL_ RECORD(R3) : Previously at BOT? 
04 12 OCBC 196 BNEQ $ 3; Branch if not previously at BOT. 
40 AS 20 0cB 16 BISB #CDORPSM_DENSCK, - ; Else, set density check required flag. 
occ 164 CDRP$L_BUTUFLAGS (RS) 
0080 C3 1C A2 v0 OCC 165 75$: MOVL MSCPSL-POSITION(R2), = ; Update tape position information. 
bce 198 UCBSL RECORD (R3) 
86 198 3 soere BRB FUNCTION_EXIT : Go to common exit code. 
zett 170 disable lsb 


eo at 
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— ~SBTTL FUNCTION_EXIT 
: 3; FUNCTION_EXIT = 
t > INPUTS: 
C 3 RO => Final 1/0 status 
C 3 R35 => UCB 
C $ R4 => PDT 
: : RS => CORP 
c ° 
: FUNCTION_EXIT: 
C If OF TU_TRACE 
0c BSBW TRACE_STATOS : Trace status. 
Of ~ENDC 
52 1¢ AS 0 C MOVL CORPSL_MSG_BUF (RS) ,R2 R2 => end message. 
14 1 BEQL EQL implies no buffer. 


BBS #MSCPSV_EF ERLOG. = 
MSCP$B_FLAGS(R2} ,10$ 

BBC #CORPSV_ERLIP, - 

DRPSL_BUTUFLAGS(RS), - 


0 
10$: BICW #CORPSM_ERLIP, - : Clear error log in progress bit. 
CORPSL_BUTUFLAGS (RS) 


JSB G*ERLSCOGSTATUS : Go log software status for errorlog. 
208: M RO, — ge : Save final 1/0 status in CORP. 
BSBB SEQ_ENDCHECK ; Check sequence on end. 


#CDRPSV_DENSCK, - : Branch if density check not required 
CORPSL_BUTUFLAGS(RS), - ; and clear required flag. 


: Use a Set Unit Characteristics command to get the current density of 
3 the tape. SUC is used instead of Get Unit Status because SUC is a 
3 sequential command. This affords a better chance of goordines ing 
3; with controller attempts to determine the density. (Specificially, 
; the HSC50 needs a sequential command here.) 
R ; Else, setup to send another MSCP cmd. 
Make that command a set unit 
characteristics command 

unit flags 


8*. ceutee current 
or ‘ 
Must also provide device dependent 
arameters for SUC. 
end the command. 
Skip is get unit status failed. 
Skip if correct tape position is 
not known. 


Branch around if error log 
message generated. 

If no ERLOG hag in End Message and 
no remembered ERLIP, branch around. 


05 09 AS 
OA 40 AS 0 E1 


40 AS 04 AA 
00000000'GF 16 
D8 AS 850 00 


3240 AS 05 €5 


08 A2 OA 90 
OE A2 00k0 CS BO 


0008 ¢3 =O 
1C A2 


MOV UCBSu ONIT_FLAGS(R3), - 

MOVL UCBSL ASCPBDEVPARAM 
MSCPSC 

SEND _MSCP_MSG 


IF_MSCP FRILURE, th 30$ 
1109 a2 02 «£0 BBS PLS, = 


3 BQQOOO FF MMM MMMMMMNIO OOOO IAIAMAAAAMAAAAAAAANOAOOOHO 
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4 
ASSUME MT$V_DE E 8 Otherwise. clear out previous 
44 43 1F~ 8A BICB a&< DENSITY @ -8>, - ; density information. 
ucest BEVDEPEND(R3) 
50 20 A2 HS MOVZWL MSCPS@_FORMAT(R2), RO ; Get MSCP density value. 
F 70E 0 BSBW MSCPTOUMS_DENS ; Convert density to VMS format.” 


. . 
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44 03 05S 08 #50 i INSV IMtsS DENS ieee 3; Store VMS density in UCB. 
4 UCBSL PENSEPEND (RS? 
F2E0' 0 z 30$: BSBW DUTUSDEALLOC_ALL : Free resources owned by this CORP. 
2 DBA 5 MOVL CORPS$L_IOST1(R5) 3: Restore final 1/0 statu 
44 A 4 : MOVL  UCBSL tasers Ri: Return to user 1/0 status block. 
52 008t 8 MOVL UCBSL-CDDB 3; R2 => CDODB. 
| D 3 BBC #CDDBSV_SNGLST : See if in one at a time CDRP mode. 
0A 12 A F CODBSW_ VSTATUS(ROS. 100$ : If NOT branch around PUSHAB which 
; re : allows us to regain control after 
2 4g PUSHL 2 ; Save"R2 => CDDB for after ALT_REQCOM. 
4 4 4 PUSHL R4 3; Likewise save R4 => PDT. 
00000042" EF ° rt: PUSHAB 110$ : Peet eeecoes to which to return after 
t 46 100$: ; : 
4 ALT_REQCOM 
$8 1108: 
54 BEDO 4 POPL RG 3 Restore R4 => PDT. 
3 8ED0 50 POPL R3 : And R3 => CDDB. 
01 31 ot 2) BRW RESTART_NEXT_CDRP ; Branch to code to restart next CDRP. 
ae 5 IF DF TU_SEQCHK 
at 22 SEQ_ENDCHECK = routine to check that commands end in sequence. 
0048 3257 Inpu 
48 Bek 3 R cx Final 1/0 status 
OD48 60 : RS = CORP 
44 8) ; Output 
O48 es : . ait registers preserved. 
0D48 65 SEQ_ENDCHECK: 
0D48 66 PUSHL : Save RO for later restore. 
0D48 67 BBSC oreo TU_OVRSQCHK,=- ; Branch around and clear bit if 
D4B 3268 W BEVSTS(R3),10$ : override specifie 
D4B 69 EXTZV HiRPSD _FCODE,= : Extract 1/0 fonction code. 
0D48 70 #IRPS$S— _F CODE ,=- 
0048 3271 CDRPSW FUNC (RS) .RO 
D48 BBC RO, SEQ MASK,10$ 3: If non=Sequent iat 1/0 branch around. 
048 327 CMPw =: (SP) , #SS$_ABORT : Is this an aborted command? 
D48 74 BEQL 50$ $ Branch if” aborted command. 
D48 75 EXTZV a 7 ; Extract six bit index , ar od array of 
D48 6 3 —8 sequence number slots. 
048 327 UcésB_ TU -OLDINX(R3) ,RO : index of oldest slot. 
D4B 4 INCB UCB$B- TU-OLDINX(R3) : Increment index. 
D48 7 CMPL CORPSC_SEQNUM(R5) ,- 3 Compare sequence number of this IRP to 
D4B 0 UCBSL_TU_ SEOARY RS) CRO} : oldest gut standing sequence number. 
D4 1 BNEQ $ ; Branch if terminating out of sequence. 
¢ 10$ POPL RO 3; Restore 
Z RSB : ot teal to caller. 
5 


8 
D4B 
D48 


; Process canceled, aborted command. 


as 
—— 
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D4B § 508: BSBW REMOVE _SEQARY ; Remove aborted command from List of 
04B 3; _commands. 
414 3 BRB 10$ 3; Then exit this routine. 
D4B 0 99S: BUG_ CHECK TAPECLASS, FATAL ; Sequential command has been lost. 


D4B 91 -ENBC 
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| 
84 8 ~-SBTTL re=CONNECTION after VC error or failure 
D4B 95 ; TUSCONNECT_ERR = Block of code invoked during the time that we 
D4B 39 re-CONNECT to the intelligent controller following some disturbance 
D4B 9 that caused dismanteling of the logical CONNECTION between the 
D4B 98 class driver and the controller. The ultimate purpose of the code 
D48 99 here is to locate all CDRP’s relevant to this controller and place 
D4B 9 them in the proper order into CDDBSL_RSTRIQFL. Once | 
0048 1 all the CORP’s are on this List we ‘‘execute’’ each of these CDRP's, one 
0D48 8 by one, until they are all done. When the Last such CDRP is completed | 
0048 we resume normal Q10 processing. This code works in cooperation with 
pee Be code in FUNCTION_EXIT. 
} 
0048 6 We are invoked here either by the Port Driver calling us at our error 
0048 0 entry point or by the Disk Class Driver branching here as a result of 
re 4 88 deciding that the intelligent controller has gone ‘'insane’’. 
} 
tote 19 The actions herein taken are the following: 
0048 \¢ 1. We disable the Timeout Mechanism Routine wakeups by placing a 
—3* 17 Longword of all 1's in CRBSL_DUETIME. 
0D48 15 2. In order to prevent new CDRP’s from starting up, we increment 
0D48 16 UCBSW_RWAITCNT for each UCB associated with this controller. 
0D48 17 This count is used to count the number of CDRP's associated 
0048 18 with a UCB that have run into resource wait situations. 
0D48 19 Whenever this count is non-zero, new CDRP's are automatically 
0048 0 backed up onto the UCBSL_IRPQFL queue. Incrementing this. 
1 count here, insures that it will not be run to zero and will 
pose ¢ cause all new CDRP's to backup. | 


gathering. | 
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0D48 4 3. We deallocate resources owned by the permanent CDRP used by the 
gr 2 Timeout Mechanism Routine. 
0D48 27 4. At the time that we are called here, our active CDRP's can be 
pose $8 found in one of the following places: 
0048 a) On the HIRT wait Q. If here note that the associated UCB 
0D48 31 RWAITCNT has been bumped due to being on this List in 
ieee 3 addition to the bump given in step 2 above. 
0D48 $e b) On the RDT resource wait Q@. Here also RWAITCNT has been 
te 5 bumped once to many times. 
D4B 3 c) On the CDDBSL_CDRPQFL. Here RWAITCNT is normal except for 
oe HS the bump given in step 1. | 
D4B 40 d) On some other resource wait Q (Flow control, moesege buffer, 
D48 41 mapping resources, etc.). Here again RWAITCNT has been bumped 
ate 4g once to much. 
D4B a4 e) On the CDDBSL_RSTRTQ. If here, the CONNECTION has failed 
D48 45 while we were in the middle of cleaning up a previous 
8 CONNECTION failure. The CDRP's here need no further 
4 
8 


Our aim here is to gather all the active CDRP’s onto the 
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D48 CDDBSL_RSTRTQ. To do this we search for them in the above 
D4B mentioned places in the order in which they were mentioned. 
et This order is important as will be explained below. 
D48 5. Note here that at the time of the call to TUSCONNECT_ERR, we 
048 may have been on the middle of MOUNT VERIFICATION. In such 
D4B a case the particular volume would have been marked as 
D48 invalid and oe re-CONNECTION we would not try to bring 
D4B8 the unit online. Also we would have a set of inactive 
D48 (i.e. no resources allocated for them) CDRP’a (IRP's) on 
D4B the MOUNT VERIFICATION QUEUE of the UCB and possibly one 
MOUNT VERIFICATION specific CDRP active. This all meshes 
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ATl 
pertectey with our _re-CONNECTION design. The contents of 
he MOUNT VERIFICATION QUEUE can be ignored. The active 
MOUNT VERIFICATION CORP will be treated 1863 Its 
0048 1/0 will_be retried and will probably fail and NT 
0048 VERIFICATION will re-submit it and it will wind up on the 
D48 normal UCB 1/0 QUEUE awaiting the RWAITCNT's going to zero. 
D48 After re-CONNECTION, it will start up normally and everything 
re should resume transparently. 
0048 6. First we scan the HIRT wait Q@ and remove any CDRP's associated 
0D48 with the current CDDB. We do this first so that if perchance, 
0D48 some of our CDRP's are here, ghey will not be selected 
yee inadvertantly when the current HIRT owner is possibly killed. 
pose This scan is done by going down the entire HIRT wait Q and 
0D48 we DO remove an entry , then we go bask and scan from the 
0048 start of the Q. When we make an entire pass without any hits, 
0D48 we finish. Note that when we remove an entry, we decrement 
0D48 the RWAITCNT prizes to calling INSERT_RSTRTQ to undo the bump 
0D4B we gave in calling LOCK_HIRT. 


7. We scan the RDT resource wait Q. Again we scan until we find our 
first entry and after a removal we begin to scan from the 
beginning. 24 a clean scan wnds the eratets, Also we 
must decrement RWAITCNT for each removal. 


8. We REMQUE each entry on CDDBSL_CDRPQFL and call INSERT_RSTRTQ 
for each one. 


9. Here we should note that INSERT_RSTRTQ deallocates all resources 
owned by a CDRP prior to inperting it in CDDBSL_RSTRTQ. 
Because of this, the only CORP’s belonging to us that still 
own RSPID's are the CDRP*s which are on other resource wait | 
queues. So here we scan the RDT looking for entries that 
belong to us. When we find one we REMQUE it, decrement its 
RWAITCNT and call INSERT_RSTRTQ for it. Note that this 
deallocates its resources and as a result of this could cause 
another of our CDRP's to receive these resources and proceed 
up to the EDD BSL _CORPOF « Therefore after a removal here 
we branch back to step 7 to safeguard agpinss this possibility. 
A complete scan of the RDT with no hits implies that we now 
have gathered all our CDRP's and that we can continue. 
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: removing the ist entry of ours that we find. If in a pass 
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If the two counts — ore Ba Re we have all CDRP's on | 


10. We DISCONNECT the now dead connection and then re-CONNECT to 


CODBSL_RSTRIQFL. C s will trickle in so we clear 
CODBSA_ CDRPTRCKL F cbbBsu. STATUS. 


establish a new channel to the MSCP server in the controller. 


. We are now ready to begin single stream execution of CDRPs, until 
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exhaust the contents of the CDRPSL_RSTRTQFL. However we 
want to guard against the possibility that a particular 
request (i.e. c RP) may repeatedly hang a control ler (i.e. 
cause a re-CONNECTION) and pereby 2 anything from 
—— — 9 deal with this we onl reser § Styee 
reques fixed maximum number of times (MAX_R The 
atgorithn which resolves this retry logic —J —34 
on several data items in the CDDB: 


a) CDDBSL_RSTRTICDRP = the address of the CDRP that is 
currently being processed in single stream mode if 
we are in single stream mode. 


b) CDDBSB_RETRYCNT = the number of remaining retries | 
for the current CDRP being processes in single 
stream mode if we are in single stream mode. 


c) copesy. SNGLSTRM = bit in CDDBSW_STATUS which tells 
s if'we are in single stream mode. 


The algorithm is as follows: If $9°8 selecting the first CDRP 

on CDDBSL_RSTRTQFL, we find ge ne rad bag c i HE we merely 

set it and we can be assurred that this is the first time 

that we are attempting to —*1 iy request in single stream 

mode. This is so because the bit b petne clear implies either 
that this is the first re-CONNECTION since the system came up 

or that the Last re-CONNECTION ran to completion thereby leaving 
the bit clear. In this case we select this first CORP, set 
(D0BSB RETRYCNT to the maximum and establish this CDRP as the 

current one by storing its address in CDDBSL_RSTRICDRP. 


* 2 CDDBSV_SNGLSTRM is set upon setecting & C a CORP. we 
one re the CDRP address to the current value 

CODES TRICDRP. If they are NOT e equal . then peed this is 
e first —59 attempt for this CDRP and we merely set the 

(DOBSB. RETRYCNT to the maximum and store the CDRP in 

CDODBSL-RSTRICDRP. If the CDRP has the same address however, 

we must decrement one from the retry count and if it is not 

exhausted attempt to process the CDRP again. 


Note this all works even though the address of a CDRP is not 
necessarily unique. That is, Som 1/0 requests qn the life of 
the system ma Thee y he same CDRP in virtual space. However, 
once re-CONNECTION c be ins, it deals only with the CDRPs 
on the CDDBSL “RSTRIGF lis never htm until re- 
CONNECTION is run to compl let on since all new IRPs are 

bein io up. Therefore even though os * run repeated 
re-CONNECTIONs thet do not run to completion but rather each 
causes the connection to go down, through all this t 
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CDDBSL_RSTRTQFL is always monotonically decreasing and no 

new CORPs are entered onto it that were not there at the time 

that we began to process the first re-CONNECTION. In a fixed 

List of CORPs which all exist at the same time, the address 

is a unique descriptor. 


12. Note that CODBSM_SNGLSTRM in CDDB$W_STATUS acts as a flag to 
FUNCTION_EXIT so that it can aid in the one at a time re- 
execution of the CDRP's. 


13. For Cebuasin sake, we loop thru all UCB’s and check that their 
UCBSW_RWAITCNT values are all equal to 1. 
alse for debugging sake we check that CDDBSL_CDRPOQFL is 
empty. 


14. We REMQUE the Ist CDRP on CDDBSL_RSTRTQFL and branch to 
TU_RESTARTIO to begin its execution. 


Inputs: (for TUSRE_SYNCH) 
R3 => CRB 


53. 10A3 00 488 MOVL CRBSL atti te ahem : R3 => CDDB. 
54 14 A300 489 MOVL CODBSL_PDT(R3S) ,R4 3 R4 => PDT. 
26 43 06 «(91 490 CMPB #MSCPSR_CM_EMULA, - : If this is the MSCP server, the right 
491 CDDBS$B_CNTRLMDL(R3) 3; resynch techatove is DISCONNECT. 
OA 13 49 BEQL RECONN_ COMMON ; So, skip the MRESET setup. 
1 AB 49 BISW #CDDBSA_RESYNCH,- ; Signal that we should reset 
12 A 49% CDDB$W_STATUS(R3) : intelligent controller. 
04 11 rh BRB RECONN_ COMMON ; Branch around to common code. 
497 ; Inputs: (for TUSCONNECT_ERR) 
498 ; R3 => CDT 
499 ; R4 => PDT 
30 
306 TUSCONNECT_ERR: 
53 5643 00 504 MOVL COTSL_AUXSTRUC(R3),R3  ; R3 => CDDB. 
232 RECONN_COMMON: 
3A 453 56 5 $ INCW CODBSW_RSTRICNT(R3) ; Count number of times reconnected. 
AA 5 BICW #<CDDBSM_IMPEND - : Signal: no immediate command pending 
5 3 'CODBSM_INITING - 3 out of initialization 
5 'CDODBSM_SNGLSTRM - : no single stream in progress 
219 'CDODBSM_RSTRIWAIT>,- ; not waiting to restart CDRPs 
12 43 0107 8F Hy CODB$W_STATUS(R3) 
50 18 A3 00 218 MOVL CDDBSL_CRB(R3) RO ; RO => CRB, ; 
18 40 01 6 t ae MNEGL #1,CRBSL_DUETIME (RO) ; Prevent Timeout Mechanism wakeups. 
08 A8 218 BISW #CDDBSM me Coumee tT = : Set bit seoning that we are in 
12 A 2} CODBSW_STATUS(R3) ; the re-CONNECTING state. 
53 0000007C BF (C3 215 SUBL3 3 CDDB_LINK - : Get ‘‘previous’’ UCB address in R1. 
520 ~CDDBSC_UCBCHAIN>, - 
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51 
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51 

00C4 iY 
A 

4 

56 Al 
EF 


F26C" 
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10: MOVL —-YEBSL_CDDB_LINK(RI), 1 
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R3, R1 


Chain to next UCB (if any). 

EQL implies no more UCB's here. 

Only bump RWAITCNT once. If already 
bumped, branch back. 

Prevent new CDRP’s from starting up. 
Go look for more UCB's. 


BBSS  #UCBSV_MSCP_WAITBMP, - 
UCBSW_DEVSTS(R1), 108 

INCW UCBSWIRWAITCNT(RI) 

BRB 10$ 


Now we are sure that no new CDRP's will start. 


BSBw DUTUSDISCONNECT_CANCEL ; Perform disconnect cancel cleanup. 
Deallocate RSPID & message buffer on each of the CDDB perm. IRP/CDRP pairs. 


MOVAB CDDBSA_DAPCDRP(R3), RS Get DAP permanent CDRP address. 
BSBW DUTUSDEALLOC RSP 1D ASG Deallocate its RSPID & msg. buf. 
MOVAB CDDBSA_PRMCDRP(R3)> RS Get permanent CDRP address. 

BSBW DUTUSDEALLOC_RSPID_MSG Deallocate its RSPID & msg. buf. 


Registers here are: 
R3 => CDDB 
R4 => PDT. 


Locate and prepare for restarting all CDRPs currently waiting for a RSPID. 
Since the class driver allocates a RSPID as the first step in any function, 
CDRPs found now will not be holding ony resources and will not be active. 
Since these CDRPs hold no resources, their cleanup will not cause any other 
= Dag requests to become active. (This fact is not currently used, but it 
might be useful.) 

MOVL CODBSL_CDT(R3), R3 Get CDT address. 
Set SCAN_RSPID_WAIT flag. 
Use SCS service to scan RSPID 


wait RE CONN 
DUTUSRECONN_LOOKUP is in 
DUTUSUBS. 


CLRL sR 
SCAN_RSPID_WAIT - 
action = DUTUSRECONN_LOOKUP 


Remove all CDRPs or. the active requests queue. These CDRPs: 

a. have outstanding requests in the intelligent controller, 

b. suffered allocation failures due to a broken connection, 

c. represent the request during which an “‘insane’’ controller was detected. 
In any case, these CDRPs are not on any resource wait queue and do not have 
their associated resource wait count bumped due to need for a resource. 


BSBW DUTUSDRAIN_CDDB_CDRPQ ; Cleanup active requests. 


Now scan the entire Response-id Descriptor Table for any remaining CDRPs 
belonging to this connection. Presumably these CDRPs are on a resource wait 
queue somewhere. In addtion, releasing whatever resources such CDRPs hold 
may cause other waiting CDRPs to become act 


ve. Therefore, after every CORP 
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: is located and processed, the active CDRP queue must be scanned again. 
INCL R1 Set SCAN_RDOT eae 
C - ice to scan ROT. 


SCAN_RDT Use SCS serv 
action = DUTUSRECONN_LOOKUP DUTUSRECONN_LOOKUP is in 
DUTUSUBS. 


MOVL CDTS$L_AUXSTRUC(R3), R3 ; Restore the CDDB address. 
RESTART_FIRST_CORP: 


We come here either by falling thru from above code or by branching here 
from CALL_SEND_MSG_BUF when the Last CDRP has trickled in. 


MMMMMMMMmMmMmMmMmmMmmnn > > >OO 


5 
5 
pc 5 
pc 5 
oc 5 
oc 5 
pc 5 
oc 2 $ 
oc 3 
DC 591 ; 
ODce 8508 : 
oc 594 ; If here all CORP's are in CDDBSL_RSTRIQFL. So no more will trickle. 
+ : 3 Clear bit that prevents CACL_SEND_MSG_BUF from doing its job. 
pc 597 ; INPUTS: 
4! 598 ; R3 => CDDB 
pc 599 ;: R4 => PDT 
ODC 600 ; 
ODCE 360 
ODCE 360 
pote 603 ; 
DCE 3604 ; Here we DISCONNECT the old connection. 
ODee 3608 
55 0000 C 9E 86 60 MOVAB ERORSA PRACORP RSD RS ; Put RS => CDRP for coming BSBWs. 
9 § DO ODD 60 MOVL R3,R0 : RO => CDDB. 
53 24 A5 0? 495 60 MOVL CORPSL_CDT(R5) ,R3 3 Set R3 => CDT. 
12 AO 0080 8F A DDA 361 BISW #CD NOCONN, - ; Set no connection active flag. 
+434 611 CDODB$W_ STATUS (RO) 
04 €5 ODE $i¢ BBCC #CDDBST_RESYNCH,- : Do NOT branch around if we were called 
1C 12 “0 ODE 61 CDDBSW STATUS (RO) ,2$ ; in order to ——2 
53 ICA DO ODE 614 MOVL COT$L_PB(R3) R53 ; R3 => Path Block for MRESET, etc. 
DE9 3615 MRESET PBSB_RSTATION(R3) ,#1 ; Force controller to reset itself. 
23 36 MSTART PBSB_RSTATION(RS) ; And force controller to restart itself. 
05 OE0 61 RSB 3; Kill this thread. Rely on Port 
E01 33 : Driver calling error routine as 
E01 361 3; a result of MRESET to accomplish 
$4 ? 9 2 :; DISCONNECT and subsequent logic. 
£01 ; ¢ DISCONNECT #DISCONNECT_REASON 
EBA 624 PERMCDRP_TO_CDDB - : Get CDDB address in R3. 
EQOA 3625 cdrp=R5, cddb=R3 
E11 36 § 
E11 3627 ; 
E11 36 8 3; Deallocate mapping rezources 
E11 3629 ; and queue mount verification requests for post preceseone 
E11 3630 ; <<< The mount verification references have been commented out in the >>> 
E11 3631; <<< fot Loving lines. This driver Coes not do mount verification. >>> 
E11 36 § 3 <<< When it 1s taught to do mount verification, however, the comment- >>> 
sit ? ? 3; <<< ed Lines MUST be restored. >>> 
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66 3; owned mapping resources. In this Hat another thread is allowed to 
s 


66 3 use the T permanent CDRP white this connection is broken. 
55 0000 C3 3 
3 


263. 665 MOVAB CDDBSA_PRMCDRP(R3), RS ; Get CDRP in 5. 


666 BSBW DUTUSDEALLOC_ALL : Free old HIRT MAP resources. 
667 3 the HIRT CDRP and whose ownership 
3; has been transferred here. 
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11 5 
11 é 3; Any mappin foveurees geile owned by CDRPs on the restart queve are 
11 ; ; deal located here. $ deal Location is delayed until afte er the 
11 36 3 3 DISCONNECT (and — MRES © arevent an ‘insane’ controller 
11 36 : from continuing to Age v : poss bly re-allocated mapping 
11 5640 ; resources. The mount verification queueing is delayed because the 
1} eh : mount verification operation may be holding mapping resources. 
CA oF 11 $08 PUSHAB CODBSL_RSTRTIQFL(R : ; Setup Listhead address. 
CA DD \% ete PUSHL CDDBSL-RSTRTOQFL(R3) ; Setup first CDRP address. 
22 8ED0 17 268 4$ POPL Re : Get next CDRP address. 
6E D1 1A 4 CMPL RS, (SP) : Is it the Listhead? 
7. 1D 508 BEQL 6 3 if yes, all deal ecot ions are done. 
FIDE’ 30 1F 364 BSBW DUTUSDEALLOC_ALL ; Free MAP resources owned by this CDRP. 
6 DD 2 3650 PUSHL (R5) ; Push next CDRP addr $32 
4 3651 3<<< BBC #IRPSV 3 Is this a mount vert ication IRP? 
4 63¢ 1<<< CDRPSW “eyscRs), : Branch if not an MV 
4 3655 :<<< REMQUE (R : Else, remove IRP/CDRP from restart 
4 3654 3<<< POST_CDRP Nal pea: : Queue and send it to post processing. 
Fi 11 r $2? BRB 4$ 3; Loop till all restart CDRPs are done. 
8E D5 8 3 68: TSTL (SP)+ 3; Clear Listhead pointer from stack. 
8 83 : Deallocate Bn ss resources whose description is ssored in the 
: 660 3; CDDB perman This information was placed there by 
3 661 3; DUTUS ead _RESTARTQ when it Stecovered that the HIRT permanent CDRP 
8 
8 
8 
D 
0 
0 
0 


re-CONNECT - Here we call an internal subroutine which: 


1. Makes a connection to the MSCP server in the intelligent 
controller. 


2. Sends an MSCP command to SET CONTROLLER CHARACTERISTICS. 


3. Allocates an MSCP buffer and RSPID for our future use in 
connection management. 


; Upon return R4 => PDT and RS => CDRP. 


F34E 30 BSBW MAKE_CONNECTION : Call subroutine to connect. 
PERMCORP_TO_ 9 B - R3 ; Get CDODB address in R3. 
50 18 a3 00 MOVL ath —X > RO ; Get CRB address. 
1C AO OEFO'CFE 9€ MOVAB W*TUSTAR, 3: Establish permanent timeout routine. 
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1; Get controller timeout interval. 


wees ** 


2A 43 
3¢ 


— — 
— 
890* 
om 
—— 

< 


984 01:01: AX/VMS Macro V04-00 Page 80 | 
Bee Boat TRIES aese Vet Oe an:1 eee 99, 
3), R 
I oe 


1 
1 
WOVZL CDDB$W_CNTRLTMO(R3) 
ADDL 1, G*EXESGL ABST M, Use that to set next timeout 
CRBSL_DUETIME (RO) : wakeup time. 


: The normal MSCP timeout mechanism is now in effect. Henceforth, 
3; no fork thread may use the CDDB permanent CDRP as a fork block. 


ASSUME CDDBSV_DAPBSY GE 8 
BISB #<CDDBSM_DAPBSY @ -8>, -; Set DAP CDRP in use flag. 
CODBSW_STATUS+1 (R3) 
MOVL CODBSL_DAPCDRP(R3), RS Get DAP CDRP address. 
BSBW DUTUSPOLL_FOR_UNITS Interrogate controller, poll for units. 
Returns R3 => CDDB, RS => CORP. 


Now it is yee | to propogate all the connection dependent 
information regard ng the newly formed connection to the MSCP server 
to all the UCB*s in the primary chain for this CDDB. At the same 
time, every RWAITCNT value is tested to insure that it is consistant 
with what would be expected based upon the various possible reasons 
which cause it to be bumped. This is merely a debugging exercise. 
In END_SINGLE_STREAM, RWAITCNT will be reduced by one and the wait 
count Bumped flag will be cleared. 


51 
18 AO 00000000'GF 
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This loop also brings previously valid units online, an activity 
which would be performed by mount verification if it existed. 


: This loop also initializes — uninitialized trace tables. 
: This must be performed after the call to DUTUSPOLL_FOR_UNITS. 


MOVAB <CDDBSL_UCBCHAIN - ; Setup ‘‘previous’’ UCB address. 
“UCBSL_CODB_LINK>(R3), - 


R 
15$: MOVL CBSL_CDDB_LINK(R5), RS ; Link to next UCB. 
BEQL 0$ ; Branch if no more UCBs to t 
BSBW DUTUSINIT_CONN_UCB Setup connection dep. UCB ft 


IF DEFINED TO_TRATE 
RACE_INIT Init IRP trace table. 


BSBW T 
DUTUSCHECK_RWAITCNT Validate the wait count value. 
- unit is not valid, all done 


B 
BBC #UCBSV_VALT 
for now. 


D 
UCBSL_STS(R55, 15% 
BSBW BRING_UNIT_ONLINE Else, bring the unit back online. 

15$ Loop through ail UCBs. 
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30$: If this driver performed mount verification, it would now be 
possible to execute requests on behalf of oo Bond ing Boynt 
verification threads. Therefore, the CDDBSV_NOCONN bit is 


cleared here. 


Since all threads which use the DAP CDRP as a fork block are now 
completed, that block may now be used for DAP operations. 
Therefore, the DAP CDRP busy flags is cleared too. 


BICW #<CDDBSM_NOCONN - ; Clear no-connection and 
'CDODBSM_DAPBSY>, - ; DAP-CDRP-busy flags. 
CODBSW_STATUS (R35 
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R 
a 
- E7D 3749 ; Processing of the first CDRP in the restart queue is about to begin. 
E7D 3750 ; The queue of active requests should be empty: check it. N.B. 
E7D 3751 ; volume revalidation were being ——— y mount verification, the 
E7D 37 ¢ 3 active request queue might not be empty and it would be necessary to 
E7D 37 3 Syachren tse with mount verification activities as is done in the 
BoD 4 : 3 disk class driver. 
E7D 37 § ASSUME 60* — EQ 0 
53 3. D1 OE7D 37 CMPL (R3), R 3 Empty Listheads point to themselves. 
4 13 O€8 138 BEQL __RESTART_NEXT_CDRP : EQL implies that all is correct. 
: 760 BUG_CHECK TAPECLASS ,FATAL 
E 761 
E86 166 RESTART_NEXT_CDRP: 
Bue 
OE 6 3765 ; Here we attempt to initiate the first (i.e. next) CDRP on the restart queue. 
E86 £08 s In order to prevent getting caught in an infinite ns trying to 
0E86 3767 ; initiate an operation that the controller cannot complete for 
OE86 3768 ; one reason or another, we maintain a retry count and the address 
i 168 5 of the CDRP that we are currently single streaming. 
Q0E86 3771 ; In the normal case this is an isolated re-CONNECTION and the 
36 re : first CDRP on the restart queue is a random CORP. We notice this 
0E86 37735 ; by seeing that the address of our first CDRP is not equal to the 
BERS ae 3 current contents of CDDBSL_RSTRTCDRP. 
SE Be 776 ; In the other case the connection failed while we were in single 
0E86 3777 ; stream mode and the CDRP which we happened to be processing s the 
0E86 3778 ; same CDRP that now heads our restart queue. In this case, before 
0E86 3779 ; initiating the processing of this CDRP, we decrement 1 from the 
0E86 3780 ; retry count and if it remains non-zero, we restart the CDRP 
0E86 44 3 processing. If the decrementing results in a zero retry count 
0E86 37 § : then we log the event and effectively abort the CDRP by branching to 
0E86 3785 ; FUNCTION_EXIT with an eppreer iese error status. FUNCTION_EXIT, due 
0E86 3784 ; to the setting of the CDDBSM_SNGLSTRM bit will then start the 
Bese 4 Fi 3 processing of the next CDRP on the restart queue. 
pege 789 3; We can arrive here either by falling through from the above code or via 
0E86 3788 ; a branch from FUNCTION_EXIT. In either case we have: 
OE86 3789 ; 
E ? 790 ; INPUT: 
: ad 3 R3 => CDDB 
E — 38 
55 3C 83 OF OE86 3794 REMQUE @CDDBSL_RSTRTIQFL(R3S),R5 ; RS => 1st CDRP on restart queue. 
oF 19 E8A 3795 BVS END SINGLE STREAM ; VS implies restart was enpty. 
0 E E8C 379 BBCS #COBBSV_SNGLSTRM,- : Set bit and if clear, this is Ist 
1B 12 A E — 79 CODBSW_STATUS( 35 208 : time here for this CDRP, so branch. 
34.A3 35 01 6 1 CMPL R5,CDDBSL_RSTRICORP(R3) ; See if same CDRP as last time. 
15 3 E95 379 BN ; NEQ implies not the same. : 
38 ASO £97 00 ECB GDDBSE_RETRYCNT (RS) ; If same, decrement 1 from retries. 
18 12 soe 1 BN 0$ > NEQ implies retries remaining. 
34! Be : eeeeeerertrererererererererenet(og this error eerreeeeeeereeeeeerererererere 
E9C 3 
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E9C 
50 00000054 gf 00 OED 5 MOVL #SS$_CTRLERR,RO : Indicate appropriate error status. 
D4 OEA 8 CLAL R : and set second part of I/0 status. 
53 BCA 0 EA MOVL CORPS$L_UCB(RS) ,R3 : R35 => UCB. 
FEIC 1 * 9 208 BRW FUNCTION_EXIT 
34 43 3 8 EA \¢ MOVL R5,CDDBSL_RSTRTICDRP(R3) ; Establish new single stream CDRP. 
0 EB 1 MOVB #MAX_RETRY,- ; Establish fresh retry count. 
38 A EB 1 son CODBSB_RETRYCNT(R3) 
53 BC_AS 0 EBS 16 MOVL CORPSL_UCB(R5S) ,R3 ; R3 => UCB. 
F710 soe 18 BRW TUL RESTARTIO : Sonar the CDRP. 
EBB 1 
EBB 0 END_SINGLE_STREAM: 
ony 
—BB 5 ; Here we want to resume normal operation and get each unit got Niel 
EBB 4; To 4. eats a ickup each UCB in owe and call SCSSUNSTALLUCB 
—€BB i} for it. as the effect of starting up as many (perhaps all) 
O&BB 38 § 3 of she InP : ‘that’ s right IRP’s) as possible that may have 
EBB 3827 ; backed up on the UCB input queue while we were in single stream mode. 
—53 828 ; We then go on to the next UCB until we exhaust all UCB's connected 
EBB : 9; to this CDDB. 
Ogee 3831 | 
12 A3 01 AA OEBB a3 BICW #CODBSM_SNGLSTRM ; Clear single streaming CDRPs flag. 
OEBF 383 CDDBS$W_STATU (R35 
50 3A 43 3C OEBF 3834 MOVZWL CDDBSW- ASTRTENT (RS), ; Get current restart count. 
55 84 43 9E pecs 835 MOVAB <CDDBSC_UCBCHAIN - 3; Setup ‘‘previous’’ UCB address. 
OEC 539 Icbari CboB _LINK>(R3), 
ee 
55 00C4 C5 9 bee? 839 10$: MOVL ycest. CDODB_LINK(R5), RS ; fotnt to next UCB. 
1D 13 OECC $79 BEQL 0$ : Branch if no more UCBs to process. 
68 AS 0400 BF AA pect ot) BICW Ucose Devt 8 — Indicate RWAITCNT no Longer bumped. 
56 AS Hi ED4 He DECW UCBSW-RWAITCNT (RS) 3 Unbump wait count. 
F126" 30 OED7 3844 SBW DUTUSEHE K_RWAITCNT 3; Else, check wait count and 
BB OEDA 332 PUSHR »R3> ; Save restart cnt. and cDDB address. 
00000000'GF 16 Bees 8 JSB G-ScSSUNSTALLUCE ; Start up IRPs on UCB. 
BA OEE 7 POPR M<RO,R5> 3; Restore restart cnt. and * e. 
34 43 50 81 OEE4 48 CMPW RO —R .RSTRTCMTCGBVD; Did the unstall cause a rest 
oD 9 EE8 49 BEQL 10$ 3; Branch if no restart was —— 
0 4h 9 RSB ; Else, discontinue this thread. 
12 43 O08 AA OEEB 2 30$: BICW #CDDBSM_RECONNECT, - : Clear reconnect in progress bit. 
EEF 385 CODBSW_STATUS(R3) 
05 OEEF 3854 RSB 3; Ta De, Ta De, that’s all folks. 
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~SBTTL TUSTMR = Class Driver Timeout Mechanisa Routine 


TUSTMR = Time out Mechanism Routine. This routine is called 

por jogicesty — CRBSL_DUETIME becomes due. At the time of a 
periodic call to TUSTMR the Class Driver is in one of three states 
with respect to the ay es a mass storage controller associated 
with the CRB pointed at by R35. 


1. State #1, the "normal" state for which this routine is optimized, 
is characterized by the following two conditions: 


a) One or more MSCP commands are outstanding to the controller. 
s is determined by having a NON-empty queue of CDRP's 
hanging off the CDDB. 


b) The oldest outstanding command was initiated since the 
previous invocation of TUSTMR and is therefore not very 
old. This is determined by compart the RSPID of the 
currently oldest command to the RSPID of the oldest request 
at the time of the previous invocation. If they are not 
equal then we are in State #1. 


2. State #2 is characterized by having NO outstanding MSCP commands in 
a ae + > Naa This is determined by finding an empty CDRP queue 
n the 2 


3. State #3 is the state where MSCP commands are outstanding and the 
oa has been outstanding for at least one previous TUSTMR 
nvocation. 


If we determine that we are in state #1, we atopty record the RSPID of the 
currently oldest outstanding MSCP command in CDDBS 

ize CDDBSL_OLDCMDSTS to all 1's. We then calculate a new due time, 

place it in CRBSL_DUETIME and return to our caller, which results 

in scheduling ourselves for the next invocation of TUSTMR. 


States #2 and #3 share some common code. In both cases we will issue an 
IMMEDIATE command to the controller but for diverse reasons. In the case 
of state re it will be an effective NOP command that is only issued to 
insure against the controller timing out the host (i.e. us) due to lack of 
activity on our part. In the case of state #3, the IMMEDIATE command will 
be a ‘GET COMMAND STATUS’ for the oldest outstanding MSCP command. 


The common code they share consists of code to sseropr tate the pre-allocated 
MSCP buffer pointed at by CDORPSL_MSG_BUF and to pick up the pre-allocated 
RSPID identified by CORPSL_RSPID: B0th these items are located in 

the permanent CORP which i$ appended to the CDDB of this intelligent 
controller. Also at this time a new due time is calculated prior to 
going the DRIVER_SEND_MSG so that we will be able to time out the 

Immediate command. Thien the code for these two states diverges for 
a while to prepare distinct MSCP packets, do the SEND_MSG_BUF, 
and in the case of state #3, to do some ppecitic processing upon 

receipt of the END PACKET for the IMMEDIATE command. This processin 


consists of insuring that the command status returned in the END PACKET 
indicates progress p 
of saving this rece 


eing made on the oldest outstanding command; and also 
ved command status in the CODBSL_OLDCMDSTS so as to 
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EF 313 ; have it available at the next invocation, if this oldest command is still | 
EF 14; outstanding. 4 this the two code paths converge to recycle the 
EF 31? ; received END PACKET for use as the next IMMEDIATE MSCP buffer and to also 
cf 318 3 recycle the RSPID by bumping its sequence number. 
EF 318 $ INPUTS: | 
4 235 : R3 => CRB of the intelligent disk controller 
EFO 3921 ; OUTPUTS: 
EF : 3 ; Registers RO through R5 are all possibly modified. | 
EFO 3924 ° 
EF 925 TUSTMR: 
EF 9 § A ge #IPL$_SCS 3 etter wakeup lower IPL. 
51 10A3 00 per 2 CRBSL_AUXSTRUC(R3),R1 ; RI => CDDB. | 
EF? 39 § ASSUME CDDBSL_CORPQFL EQ 0 
51 1 D1 OEF7 3930 CMPL (R1),RT : If =, then list of CDRP's is — 
1 13 OEFA 3931 BEQL : EQL means empty List of CORP's 
OEFC 336 : — —38 we are in State. #2. 
50 61 DO OEFC 393 MOVL (R1),R0 ; RO => CDRP associated with ‘‘oldest’’ 
aeee 33 ———— MSCP command. 
20 AO D1 OEFF «63936 CMPL CDRPSL_RSPID(RO) ,- : Compare RSPID of oldest request to 
2c Al OFO2 3937 CDDBS$L_OLDRSPID(R1) 3 that of request current ra time of 
ore 938 3 prev ious invocation of TUSTMR. 
1¢ 13 6504 «63939 BEQL 30$ ; EQL implies State #3, Bs current 
Bree Bey : oldest has been around for awhile. 
20 AO 00 OF 06 38 MOVL CDRPSL_RSPID(RO) ,- ; State #1, we have a NEW oldest request 
2C Al FO9 394 CDDBS$L ~OLDRSPID(R1) 3 so record its ®SPID in CDDB field. 
30 Al 01 ct *89 ate 108 MNEGL #1,CDDBSL OOLDCMDSTS¢R1) ; And initialize its associated status. 
7E 2A Al 3C OFF —8 MOVZWL CDDBSW_CNTRLTMO(R1),-(SP); —*12 controtlor deita. 
8—E C1 at: 94 ADOL3 = (SP)+ ; Calculate delta time for next 
00000000" GF OF 15 948 GAEXESGL ABSTIN,= ;| periodic invocation of TUSTMR. 
05 84 320 RSB ; And return to caller. 
OF 1D 326 20$: 3; If we are here, there are NO outstand- 
OF1D 395 : in 4— vests in the controller since 
OF1D 3954 ; CDRP List is empty. 
50 D4 OFID 3955 CLRL RO ; RO tlagges to indicate State #2. | 
2C Al 64 94 328 CLRL CODBSL_OLDRSPID(R1) ; Set to impossible value to prevent 
: 33 inadvertent comparison error. 
f 959 308: : Common State #2, State #3 code path. 
F 960 : If here, for sure we will be issuin | 
F 961 3 an immediate command to the. controller. | 
F 306 ; If we are 0 State 8. 8 will * a | 
F 96 ; “GET UNIT STATUS’ ¢ > comand but 
F 964 : if, we are in State 7 y, it wi | 
F 965 : a "GET COMMAND STATUS" SL * 
iy 3 —5313 case we begin the common setup. | 
F 96 
54 14A1 D0 OF yt: MOVL CDDBSL_PDT(R1) ,R4 ; Setup for SEND_MSG_BUF, R4=>PDT. 
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55 00D0 C1 9 F26 3970 MOVAB CDDBSA_PRMCDRP(R1),R5 3; RS => CDRP appended to CDDB. | 
01 =s€ FeB 3971 BBCS #CDDBSV_IMPEND,=- ; Branch if an immediate command is NOT 
03 12 Al FOD 976 CDDBSW_STATUS(R1),40$ : pending. Also set bit to show that 
F 97 3; _one wil L be fs"that — 
FE18 31 OF 974 BRW TUSRE_SYNCH ; Bit set_implies that an immediate 
* 975 : "GET STATUS type command has not 
F 33 ; completed in the timeout interval. 
OF 97 ; So we goto resynchronization logic. 
OF 978 
4 979 40$: 
7E 50 7D OF 980 RO, =-(SP) ; Save valuable registers. 
4 3 38) Itt _MSCP ASG ; Initalize buffer for MSCP message. 
50 8E 7D OF : 33 (SP) ; Restore valuable registers. 
D1 10 OF3C 3984 BSBB 10$ ; Establish due time so as to be able 
OF3E 3985 ; _to timeout Immediate command. 
50 05 OF3SE 3986 TSTL RO ; Test for State #2 or State # 
09 = 12 ores 33 BNEQ 50$ ; NEQ implies State #3. Branch to handle it. 
8 989 ; State #2 specific code. 
OF4 990 ; Here we prepare the MSCP packet for the ‘'GET UNIT STATUS'’ command for 
ores 991; unit #0, which is an effective NOP command. This is done to 
OF4 33 maintain *— —78 so that the controller will not time 
Ores 3993 ; out the host (i.e. us). NOTE that since the MSCP buffer has been 
OF42 3994 ; cleared above, there is no need to specify unit #0 in the command 
OF42 3995 ; buffer. 
OF4 996 ; 
OF4 997 
03 90 OF42 3998 MOVB #MSCPSK_OP_GTUNT,- : Move in ‘'GET UNIT STATUS" opcode. 
08 A2 OF 44 3999 MSCPS$B_OPCODE (R25 
OF46 4001 SEND_MSCP_MSG DRIVER ; Here we call to send the MSCP packet 
OF 49 1808 ; to the intelligent disk controller. 
OF49 400 
OF49 4004 ; Return is experienced here after 
OF49 4005 ; receipt of the END PACKET correspond- 
OF49 4006 ; ing to the MSCP NOP sent ore. we 
OF49 4007 ; regain control due t callbac 
OF49 4008 : from our own INPUT DISPATCHER 
OF49 4009 3 ROUTINE. passed to us at this call- 
OF49 4010 ; back are R2 => END PACKET, RS — CRB, 
OF49 4011 s R4& => PDT and a => CDRP. 
OF 49 36 ; ALL we want to do is recycle the 
ih $3 3; END PACKET for use as our next MSCP 
F49 4014 3 acket and recycle the RSPID. 
OF49 4015 ; To do this we branch to common code. | 
35 11 OF49 4016 BRB 70$ 
F4B 4017 } 
F4B $318 50$: 
F4B 401 
F4B 3 0 ; State #3 specific code. me w! 
4 1 ; Here we prepare the MSCP packet for a ‘'GET COMMAND STATUS" command. 
50 BC AO 00 —9 MOVL CORPSL_UCB(RO) ,RO ; RO => UCB for oldest outstanding request. | 
00D4 8 BO OF4F 3 5 MOVW UCB$W_MSCPUNIT(RO),- : Setup UNIT field. | 
04 A F53 4026 MSCPSO -UNIT(R2) 


C 14 | 
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—WB TUSTMR = Class 1, Timeout Mechanism ety 7 80; 8:27 (CDRIVER.SRCITUDRIVER.MAR; 1 . (1) | 
0 90 MOVB #MSCPSK_OP_GTCMD,- ; Setup OPCODE field. 
08 5 MSCP$B_OPCODE (R25 — 
C Al 00 MOVL CDDB$SL_OLDRSPID(R1),- ; Setup OUTSTANDING COMMAND REFERENCE 
C A2 MSCPSL_OUT_REF (R2) : field. 
SEND_MSCP_MSG DRIVER ; Here we call to send the MSCP packet 
; to the intelligent disk controller. 
3; We super lence return here upon rere tee 
; of the END PACKET for the above ‘GE 
; COMMAND STATUS’ command. We must make 
; sure that progress has indeed been 
; made on the outstanding command. We 
3; therefore compare the cuatanetes 
3 command status returned in the END 
: PACKET to the previous value in CDDB 
: field CDDBSL_OLDCMDSTS. 
: Here R2=>END PACKET, R3=>CRB, R4=>PDT 
3; and R5=>CDRP. 
51 10A3 00 MOVL CRBSL_AUXSTRUC(R3),R1 R1 => CDDB. 
10 A2. D1 CMPL MSCPSC_CMD_STS(R2),- Compare received outstanding command 
30 Al CODBSL_OLDCMDSTS(R1) status to previous value. 
OF IF BLSSU 60$ LSSU implies progress made so branch. 
OA 12 BNEQ 55$ If not equal, progress went the 


wrong direction; a sure sign of 

an insane controller. 

If equal to last time, is this the 
multi-host busy somewhere else value? 


10 42 FFFFFFFF 8F D1 CMPL = #=1, MSCPSL_CMD_STS(R2) 
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03 «13 BEQL 60$ ; Branch if it is busy somewhere else. 
FDDO 31 55$: BRW TUSRE_SYNCH ; Anything else, ~~ es no progress 
has been made. So we goto 
re-synchronize with the intelligent 
disk controller and re-issue al 
outstanding commands. 
60$: 
10 A2 060 MOVL MSCPSL_CMD_STS(R2),- ; Remember this received outstanding 
30 Al CDDBSL-OLDTMDSTS(R1) § ; command status for next time. 
70$: : States #2 and #3 code paths merge here. 
RECYCH_MSG_BUF ; Recycle END PACKET. 
RECYCL_RSPTD ; Likewise the RSPID. 
10 A300 MOVL CRBSL_AUXSTRUC(R3),R1 ; R1 => CDDB. 
02 AA BICW #CDDBSM_IMPEND,- ; Indicate that immediate command is 
12 Al CODB$W_STATUS(R1) ; _no longer pending. i 
FO6C* 31 BRW DUTUSDODAP ; Continue by doing DAP processing. 
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-SBTTL TUSIDR = Class Driver Input Dispatch Routine 
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; TUSIDR = Class Driver ye 9 Dispatching Routine. This routine is to 
the class driver what the Interrupt Service Routine is to a 

conventional driver. We are called here by the Port Driver 

and we are passed the address of an END PACKET or an ATTENTION 

MESSAGE buffer. By testing a bit in the ENDCODE field of the 

received buffer we determine which of the two has been received. 

For ATTENTION MESSAGES we immediately branch to ATTN_MSG. 


For END PACKETs we first determine if the END PACKET is still of 
interest. This is done testing whether the COMMAND REFERENCE 
NUMBER returned in the END PACKET, interpreted as a RSPID, is 
still valid. If not, we merely deallocate the END PACKET and 
return to our caller in the Port Driver. 


If the END PACKET is still of interest then before dispatching 
to the code that originally issued the MSCP command for which we 
have just received the END PACKET, we first remove the 

CORP associated with the command from the List of active CDRP's 
defined by the Listhead located at CDDB$L_CDRPOFL. 


| 

INPUTS: 
—383 Length 
. —* PACKET or ATTENTION MESSAGE BUFFER 
| 

| 

| 


DaDwD 
wn 
“nun 


onnection Data Block 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge 


07 +€1 
08 A2 
GA 


BBC #MSCPSV_OP_END,- : Is this an ATTENTION MESSAGE 
MSCP$B_OPCODE(R2),- : or an END PACKET; 
ATTN_MSG ; bit clear implies ATTENTION. 


: Process command END MESSAGES 


PUSHL R1 ; Save message size. 

MOVL MSCPSL_CMD_REF(R2), RS ; Get RSPID from end message. 
FIND_RSPID_RDTE ; Lookup RDTE for RSPID. 

POPL R ; Restore message size. 

b WITH_MESSAGE ; Branch if error in RSPID. 
J ; RS => CDRP. 


RO => CDT. 

RO => CDDB. 

See if oldest outstanding command has 
this Command Reference ber. 

If not, branch around. 

Prevent inadvertent timeouts due to 
reuse of RSPID in error situations. 
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$L 8 
CMPL CDDBSC_OLDRSP 
MSCPSL_CMD_REF (R2) 


208 
CLRL  CDDBSL_OLDRSPID(RO) 
208: ASSUME MSCPSK_LEN LT 32767 
MOVW R1, CDRPS$W_ENDMSGSIZ 
MOVL 2. CORPSL7MSG_BUF (R 


REMQUE (R5),R5 


b 
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(R5); Save length of incomming packet. 
5) ; Save address of incomming packet. 


Remove R5=>CDRP from List. 
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—WB TUSIDR = Class 1 Input Dispatch Rou Tey 7 80; Bid) LORIVER. SREITUDRIVER.MAR: 1 . (1) 
FCO 4134 ASSUME CDRPS$V_CAND EQ 0 
OC 40 AS EB QOFCD 4135 BLBS Berek. eu TUrLASS (RSs, - ; Has request been canceled? | 
FCD 41 § $ 3 so, do cancel completion work. 
OC CA AS O07 EO OFCD 4137 2358: BBS #IRPS$V_DIAGBUF, - : Branch out of Line if a diagnostic 
Ds 9 CORPSW_STS(R5), 50$ ; buffer was supplied. 
53 10 AS 7p FD? 4140 25$:  MOVQ  CDRPSL_FR3(R5S), R3 ; Restore fork registers, R3 & R4. | 
oc 85 44 4141 JMP ACDRPSC_FPC(RSS ; Dispatch to issuer of MSCP command | 
£08 98 : who will return to our caller. 
F024" 30 OFD9 4144 30$: BSBw DUTUSTEST_CANCEL_DONE ; If this request completes a cancel 
FOC 4145 3; operation, cleanup that operation. 
me he} —98 BRB 23$ :; Branch back to normal flow. 
FOIF® 30 OFDE 4148 50$: BSBW DUTUSDUMP_ENDMESSAGE ; If diagnostic buffer, record MSCP 
OFE1 4149 3; end message sent in the buffer. 
EF 11 OFE1 4150 BRB 25$ ; Branch back to normal flow. 
pres 4151 
OFE 2128 
OFE3 415 
OFES 4154 ; 
OFES 4155 ; Process ATTENTION MESSAGES 
OFE3 4156; 
OFE3 4157 | 
OFE3 4158 ATTN_MSG: 
* OFE3 4159 PUSHR #*M<R1,R2,R3,R4> : Save vital registers. 
53 5C AS DO OFES 4160 MOVL  CDTSL_AUXSTRUC(R3), R3 : Get CDDB address. 
13°AF SF OFE9 4161 PUSHAB B*EXIT_ATTN_MSG ; Make DISPATCH Look Like a BSBx. 
OFEC 2126 DISPATCH - ; Dispatch to attention message 
OFEC 416 MSCPS$B_OPCODE(R2), - ; specific processing: 
OFEC 4164 ype=8. refix=MS¢ - 
FEC 4165 <AVATN, UNIT_AVAILABLE_ATIN>, - 
FEC 4166 <DUPUN, DUPLICATE_UNIT-ATTN>, = 
OFEC 4167 <ACPTH, ACCESS_PATH_ATTN>, = 
OFEC 4168 > 
OFF8 4169 INV_ATTN_MSG: : Process invalid ATTENTION MESSAGE. 
8E 05 OFF8 4170 TSTL (SP)+ : Pop “‘return’’ address. 
50 OA 3C OFFA 4171 MOVZWL #EMBSC_INVATT, RO : Invalid attention message type. 
00000000'GF 16 OFFD 338 JSB G*ERLSCOG_TMSCP : Log incorrect TAPE MSCP message. 
1€ BA 1003 417 PR #*M<R1,R2,R3,R4> : Restore vital registers. 
1005 4174 DEALLOC_MSG_BU ; Deallocate ATTN ASG buffer. 
53 5C AS DO 1008 4175 L COTSL ADKSTRUC CRS) . R3 ; Get CDDB again. 
53 18 A3 0 100C 4176 MOVL CODBSC_CRB(R3), R3 ; From that get the CRB address. 
FD38 1 11 33 BRwW TUSRE_SYNCH 3 Re-synchronize with controller. | 
101 4139 EXIT_ATTN_MSG: : 
1E BA 101 2139 #*M<R1,R2,R3,R4> ; Restore vital registers. 
1015 4181 FINISHED WITH_MESSAGE: 
1015 $18¢ BEALLOC_MSG_BUF_REG : Deallocate ATTN MSG buffer. 
05 1018 41 RSB ; Return to SCS caller. 
| 
| 
| 
| 
| 
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1 13 4185 -SBTTL Attention ays prerese he 
! 13 9 -SBTTL <= Process Unit Available Attention Message 
1019 41 8 p++ 
1019 41 : 
} 13 2139 ; Functional Description: 
1019 2138 $ This routine processes unit available attention messages. If the 
1019 4193; available unit is already known in the I/0 database, no action is 
1019 4194; taken. f the available unit represents a second path to an already 
1019 4195 ; known unit, the 1/0 database is altered to show the alternate path 
1019 £138 s availability. If the available unit represents a totally new device, 
1019 4197 ; it is added to the I/0 database. 
1019 4198 ; 
1019 4199 ; Inputs: 
1019 4200 ; 
1019 4201 ; R1 attention message size 
1019 4 8 Re attention message address 
1019 4203 ; R CODB address 
1019 4204 ; 
1019 4205 ; Outputs: 
1019 4206 ; 
1019 4207 ; RO - RS destroyed 
1019 4208 ; ALL other registers preserved 
1019 4209 ;-- 
1019 4210 
1019 4 1 UNIT_AVAILABLE_ATTN: 
03 12 A3 OS £0 1019 4 13 BBS #CDDBSV_POLLING, - : Is a pelt for units in progress? 
1O1E 4214 CDDB$W_STATUS(RS), 90$ : Branch if poll for units active. 
EFDF® 30 101E 4215 BSBW DUTUSNEW_UNIT 3 Process possible new unit. 
1021 4216 a a TU_TRACE 
1021 4217 MOVL R2, R ; Copy UCB address. 
Is! 4218 BSBW TRACE_INIT : Initialize IRP trace table. 
1021 4219 -ENDC 
05 1021 4220 90S: RSB 
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-SBTTL = Process Duplicate Unit Attention Message 


Functional Description: 


OOOCCGCOCOoCoo 


This routine processes duplicate unit attention messages. 
Notification of the condition is sent to the operator's console and 
an entry is made in the error log. If the unit described in the 
ptm sommes be found, an invalid MSCP message error log entry is 
generated. 


Inputs: 


81 attention message size 
Re attention message address 
R CODB address 


Outputs: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se 


RO - R5 destroyed 
ALL other registers preserved 


-ENABLE LSB 


DUPLICATE_UNIT_ATTN: 


LOG_ATTENTION_MESSAGE : 
JSB 
RSB 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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BSBW Sy rue Caner ee : Locate UCB for this message. 

MOVL RO, R ; Setup UCB address. 

BEQL 90 ; If no UCB found, ignore the message. 
BSBW DUTUSSEND_DUPLICATE_UNIT; Send message to operator. 

MOVZWL #EMBSC_DUPUN, RO ; Setup duplicate unit error log code. 


ERLSLOGMESSAGE : Error log attention message. 


-DISABLE LSB 
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] y ; $¢ -SBTTL = Process Access Path Attention Message 
1037 4264 ;++ 
1037 4265 ; 
} 4 2 96 3; Functional Description: 
1037 4 08 3 This routine processes access path attention messages. If the access 
1037 4 § $ path represents a second path to an already known unit, the I/0 
1037 4270 ; database is altered to show the alternate path availabil ty, and an 
1037 4271 ; entry is made in the error log indicating receipt of the message. 
1037 4 i $ If the unit described in the message cannot be found, an invalid MSCP 
18 7 4273; message error log entry is generated. 
IE $378 F tnpu 
3 Inputs: 
19 7 4 6 H — 
1037 4277 ; R1 attention message size 
1037 4 re 3 Re attention message address 
1930 4279 ; R CODB address 
1037 4280 ; 
1037 4281 ; Outputs: 
1037 4 B : 
1037 4 3 RO = RS destroyed 
1037 4284 ; ALL other registers preserved 
1037 4285 ;-- 
1037 4286 
1937 ; tf ACCESS_PATH_ATTN: 
EFC6" 30 1037 4 $5 BSBW DUTUSSETUP_DUAL_PATH : Process possible dual path unit. 
_ 00 103A 4290 MOVL RO, R3 ; Get UCB address. 
06 13 1030 4291 BEQL 90$ : If no UCB found, ignore the message. 
05 103F 4 3 RSB ; Return w/o Logging — dut 
1040 429 ; leave message logging code in place 
1040 4294 ; just in case its needed. 
50 08 9A + 4295 MOVZBL #EMBSC_ACPTH, RO ; Setup ERLSLOGMESSAGE code. 
EB 11 1043 4296 BRB LOG_ATTENTION_MESSAGE ; Join common Log message path. 
05 1045 4297 90S: RSB ; If no UCB, exit. 
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} re ; + -SBTTL TUSDGDR = Data Gram Dispatch Routine 
1046 4301 : Inputs: 
i d ; 
1046 4 3 Ri = ey od * datagram 
1046 4304 ; R2 => catsere 
1046 4305 ; R3 => COT 
1046 4 $ 3 R4 => PDT 
1046 430 
; és ? 8 TUSDGDR: 
50 SC 8 1) + 4 19 MOVL corse AUXSTRUC(R3) ,RO 3; RO => CDDB 
5. 53 00 104A 431 M ; Save pointer to CDT. 
50 0000007C BF C3 1040 4 3 SUBL3 #<UCBSL CDDB_LINK = : Get previous’ UCB address in R3. 
1054 431 - copgsc. UCBCHAIN>, - 
31088 2318 —* 
53 00C4 (3 09 8 4 16 10$: MOVL yeast. CDDB_LINK(R3), R3 ; Chain to next UCB (if any). 
11 13 105A 431 BEQL ; No more UCBs. 
0004 (3 81 105C 4318 CMPW UCBSW_MSCPUNIT(R3),- : See if datagram (error log packet) 
04 A2 1968 4319 MSCPS$Q_UNIT(R2) 3: for this unit 
|. 7. $359 BNEO itt : If not, branch’ abck to ery. next unit. 
50 02 3€ 1064 4321 MOVZWL #EMBSC RO ; Put type of message into RO. 
Q0000000'GF 16 38 $358 208 JSB G°ERLSCOGHE SAGE ; And call to log message. 
53 55 00 106D 1354 MOVL ; Restore R3 => CDT. 
52 0088 C46 C2 1070 4325 SUBL POtee  DGOVRHD(R4) ,R2 : R2 => SCS header of datagram. 
1075 4326 QUEUE _0G_BUF ; Requeue datagram buffer. 
05 1078 4327 RSB 3; Return to port. 
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ID 
1079 4329 -SBTTL INVALID_STS 
1079 4 9 ‘ 
1079 4 3+ 
1079 4 § ; We come here if we get an invalid MSCP status. We log the MSCP message 
! 7 ? ? ; and then RE-SYNCH the controller. 
1079 4335 ; Inputs: 
1079 4 § : Re => MSCP packet 
1079 4 : R35 => UCB 
1079 4 8 3 R4 => PDT 
1079 4 $ RS => CDRP 
1928 ? 9 CDRPSW_ENDMSGSIZ(R5) => Length of MSCP packet with invalid status 
1079 4 8 
1079 4343 INVALID_STS: 
1079 4344 
50 09 3C 1079 4345 MOVZWL #EMBSC_INVSTS,RO : Indicate type of record to log. 
51 46 a 3C 107C 4346 MOVZWL CDRPSW ENDMSGSIZ(R5) , R1; Pickup Length of faulty packet. 
53 OOBC C DO 1080 4347 MOVL UCBSL_CDDB(R3) ,R3 ; R3 => CDDB for logging error. 
00000000'GF 16 1085 4348 JSB G*ERLSLOG_TMSCP ¢ Log tape MSCP error. 
EF72° 30 1088 4349 BSBW DUTUSINSERT_RESTARTQ ; Queue CDRP for retry. 
53 A ° 1985 4350 MOVL CDDBSL_CRB(R3),R3 ; R3 => CRB for re-SYNCH. 
FCB6 1 1092 4351 BRw TUSRE_SYNCH : Zap controller. 
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“UNSO Breer ia8e BOF bis) ARIVES Bacto ote mans) 2° 
.SBTTL TU_UNSOLNT 
TU_UNSOLNT: 
BUG_ CHECK TAPECLASS, FATAL 
-IIF DEFINED TU_TRACE, .PAGE 
“IF DEFINED TUTTRACE 
~SBTTL IRP nee ing Routine 
-SBTTL = TRACE_INIT = Initialize trace table 


p++ 
; TRACE_INIT = Initialize trace table 
> Functional Description: 


If the trace table is not initialized, initialize it. 


Inputs: 
R5 UCB address. 
Implicit Inputs: 
UCBSW_DEVSTS(R5) UCBSV_TU_TRACEACT set if the trace table is 
initialized 
Outputs: 


ALL registers preserved. 
Implicit Outputs: 


UCBSW_DEVSTS(R5) UCBSV_TU_TRACEACT is set if the trace table is 
successfully initial ized 


UCBSL_ vedi ab oth address of first IRP trace slot 
UCB$L~ TRACEPTR(RS) address of first free IRP trace slot 
UCBSL_TRACEND(R5) address of first byte after IRP trace slots 
TRACE_SLOTS = 50 ; Number of trace slots 
TRACE_SIZE = 96 : Size of a trace slot 
TRACE_TBLSIZ = TRACE_SLOTS * TRACE_SIZE ; Size of the trace table 
ASSUME IRPSL_ARB+8 LE TRACE_SIZE 
ASSUME <TRACE_SIZE & “*X1F> EQ 
IRP$L_TU_TRCPTR = IRPSK_CD_LEN : Define a place to hold pointer to 
CDORPSC_TO_TRCPTR = CDORPSK_CD_LEN 3 trace slot 


ASSUME IRPSL_TU_TRCPTR#+4 LE IRP$K_ LENGTH 
ASSUME CORPSC_TO_TRCPTR-CDRPSL_IOGFL EQ IRPSL_TU_TRCPTR 


TRACE_INIT: 


: Branch if tracing is already 
$0$ : initialized. 


BBS #UCBSV_TU —B 
UCBSW_BEVSTS(R 
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PUSHR #*M<RO,R1,R2,R3,R4,R5> 

MOVZWL #<TRACE TBLS{Z+16>. R1 

JSB GE XE SACONONPAGED 

BLBC 0$ 

CLRQ + 

MOVW RI, (R2)+ 

MOVW  § #DYNSC_CLASSDRV, (R2)+ 

CLRL = (R2) + 

MOVL  R2, UCBSL_TRACEBEG(RS) 

MOVL. R2, UCBSL~TRACEPTR(RS) 

ADDL3 #TRACE_TBCSIZ, R2, - 

ucest TRACEND (RS) 
BISW #UCBSM_TU TRACEACT, - 
CBSW_BEVSTS(RS) 
movcS #0, (SP), #0, - 
#TRACE_TOLSIZ, (R2) 

80$:  POPR #*M<RO,R1,R2.R3.R4,R5> 
90$: RSB 

PAGE 

*SBTTL 


+ 
+ 


TRACE_IRP = Trace incomming IRP 
Functional Description: 


a dump. 
Inputs: 


R3 IRP address 
R5 UCB address 


Implicit Inputs: 
UCBSW_DEVSTS(R5) 


ALL registers preserved. 
Implicit Outputs: 


UCBSL_TRACEPTR(RS) 
IRPSL~TU_TRCPTR(R3) 


Bete Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Sse Se Ge Ge Se Se 


TRACE _IRP: 


Sete Ge Ge Be Ge Ge Se Se Ge Se 


Attempt 
Branch i 


9 AX/VMS Macro v04-00 
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Save registers. 
Get size of the trace table w/ header. 
© allocate pool. 

allocation failed. 
gnttte) tae trace table header for SDA. 
Save size. 


pe. 
Round header upto 16 byte boundary. 
Save pointer to base of trace table. 
Pointer to next area to use. 

Pointer to beyond end of trace table. 
Indicate Trace table inited. 


Zero trace table. 


; Restore registers. 


Return 


- TRACE_IRP = Trace incomming IRP 


Called as a part of start I/0 processing, this routine allocates a new 
IRP trace slot and copies starting IRP contents into that slot. 


IRP trace slots are 96 bytes long so that they Line up nicely in 


COSY, TY TRACEAGT set if IRP trace slots have 


been allocate 
YCBSL_TRACEPTR(RS) address of first free IRP trace slot 
UCBSL_TRACEND(RS) address of first byte after IRP trace slots 
UCBSL_TRACEBEG(RS) address of first IRP trace slot 
Outputs: 


updated 
Address of IRP trace slot (for TRACE_STATUS) 


2* 
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44 3 —** IV.I — - 3; If trace table not intialized, 
9 44 BEVSTS b0$ =: exit immediat ately. 
9 44 9 mova Bers P) 3; Save RO and R 
9 4467 MOVL 4 * RO 3; Get IRP to trace in RO. 
9 rr MOVL L_TRACEPTR(RS), R1 ; Get address of next free trace slot. 
9 447 CMPL BSL_TRACEND(R5), R1 ; Check for end of trace table. 
9 64674 BGTR 3; Branch if not overflowed trace tbl. 
9 44675 MOVL UCBSL_TRACEBEG(RS), R1 ; Else, reset to base of trace table. 
9 39 108: ADDL3 4 SIZE, R1, - ; Setup next entry pointer. 
3 447 UCBSL  TRACEBTRCAS 5) 
9 1055 MOVL R1, IRPSL_TU_TRCPTR(R3) ; Save trace slot addr at end of CDRP. 
9 4480 <TRACE_SIZE * 7> £0 0 
099 4481 REPEAT FRACE SIZE. / 8 
0 H 2 § a (RO)+, (R1)+ : Copy input IRP. 
9 9 6484 MOVL IRPSL_TU_TRCPTR(R3), ; Refresh R1 to trace slot segtaning. 
099 ret MOVL R3, (R1)~ : Put IRP address in trace slot 
099 44 § CLRL 4(R1) 3; Clear field that will Sontate RSPID. 
099 448 MNEGL Ag IRP$L_ARB(R1) : Init field for 1/0 Status #1. 
3 4488 MNEGL 1, IRPSL_ARB+4(R1) : Init field for 1/0 Status #2. 
0 4490 mova (SP)+,RO 3; Restore RO and R1. 
0 4491 20$: RSB 


- PAGE 
449 -SBTTL = TRACE_STATUS = Trace final 1/0 request status 
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TRACE_STATUS = Trace final 1/0 request status 
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3 
4498 : Functional Description: 
4500 : Copy final 1/0 status and RSPID into trace slot. 
099 4501; 
B33 £18 | Inoue: 
099 490% : RO 1/0 status first longword 
99 4505 ; R3 UCB address 
8 £208 ; R5 CORP address 
099 4908 > Implicit Inputs: 
099 4310 : UCB$W_DEVSTS(R3) UCBSV_TU_TRACEACT set if IRP trace slots have 
99 4511; been allocate 
099 $216 : CORPSL_TU_TRCPTR(RS) Address of IRP trace slot 
8 $317 : UCBSL_BEVBEPEND(R3) 1/0 status second lLongword 
99 4319 3 Outputs: 
8* 3 ALL registers preserved. | 
8* 4318 : Implicit Outputs: | 
44 i : RSPID and final I/0 status copies to IRP trace slot. 
4523 ° | 
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} 9 ? ¢ TRACE_STATUS: 

1 39 4 § BBC #UCBSV_TU 65 - ; If trace table not initialized 

1099 4 UCBSW_DEVSTS(R ), 308 | exit immediately. 

1099 4 8 PUSHL R ; Save register. 

1099 45 MOVL CORPSL_TU_TRCPTR(R5), R2; Get IRP trace slot address. 

1099 43 0 MOVL CDRPSL-RSPID(RS), 4(R2) : Save RSPID in trace. 

1099 4531 MOVL RO, IRPSL_ARB(R2S ; Save 1/0 status. 

1099 436 MOVL  UCBSL_DEVBEPEND(R3), - : ' 

1099 45 TRPSL-ARB+4 (R2) 

1099 4534 POPL R2 ; Restore register. 

1099 4535 30$: RSB 3; Return to caller. 

1099 4 § 

1099 45 ENDC 

1099 4538 

1099 4539 END 
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$$$ 
SSBASE 
SSBEGINSS 


S$$ 
SSTEMPSS 
ACCESS_PATH_ATIN 
ACPSACCESS 
ACPSDEACCESS 
ACPSMODIFY 


ACPSMOUNT 

ACPSREADBLK 
ACPSWRITEBLK 
ALLOC DELTA 


CDDB$B_RETRYCNT 
CDDBSB_SYSTEMID 
$K_LENGTH 


CDDBSL~CANCLOFL 
CODBSL~CDRPOFL 
CODBSL~CDT 
CODBSL~CRB 
CODBSL~DAPCORP 
CODBS$L~DAPCDT 
CODB$L~DAPUCB 
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16-SEP-1984 01:01:11 VAX/VMS Macro V04- : 1) 
TUDRIVER 2 ene een BSE 1984 00:18:27 LORIVER. SRCITUDRIVER MAR: 1 | 
—— e DPTSC_LENGTH = 00000058 
CDRPSL_PID : DPTS$C VERSION 886668 04 
CDRPSL-RSPID . DPTSINITAB J* 
CDRPSL-RWCPTR = DPT$M_NOUNLOAD 88868 
CORPSL~SEGVBN : DPTSRESCS 4) 4. | 
CORPSL~SEQNU . DPTSREINi 0000000 R 04 | 
CORPSL_SVAPTE . pata a 00 006 
—— TERM . 3 D1$_TA78 “ 0900 3 
CORPSL UCB. : 8 z4 = 0000000A | 
CORPSL— OTe tke = 00000005 | 
CDRPSR-ERLIP. : DT$-TUBt © TR om 
eons” —— — 338 
CDRPSV~CAND : DUTUSCHECK RWALTCNT — ——— 
CDRP$V_DENSCK BUTUSCREATE DD teeeeeee X05 
CORPSVERLI . DUTUSDEALLOT ALL ccapanen Ce 
CORPSV~IVCMD “3 DUTUSDEALLOC RSPID MSG ceanaaee ict =a 
CORP$W_ABCN ‘ DUTUSDISCONNECT_ teeeeeee X05 
CDRPSU-BOrF - DUTUSDRAIN CDDB_CDRPQ ees 5 b2 
CORPSW_CDRPSIZE ; DUTUSDUMP_ENDMESSAGE ceeneeunt: 4 ae 
CORPSW_CHAN * DUTUSEND TYPE eeeeeeee KX 05 
— ai dee Sa 
CORPSW_IRP_ SIZE . DUTUSINIT-RSCPCMSG iouneeea: a ae 
— SHEAR a mane ff 
* aanrek 
are lag Ste, 60s EB 
CLASS“DRVR_ NAME §2 DUTUSKILL~THIS_TAREAD —— a 
—— ae gauss 1 
ERBSL_ADXS TRUC = B00 DUTUSL, CDDB“LISTHEAD — 6 one 
CRBSL_DUETIME = 000 DUTUSNEW UNTT ian ca 
CRBSL-INTD = 000 DUTUSPOLE FOR .U teeeeeee =X 05 
eo J Rem mame f B 
ane 
DDBSL_ACPD = 000 DUTUSRE STORE CREDIT 5333 X08 
DDBSL-ALLOCLS = 00 DUTUSRESTORE ¢ renter he aa” 
bbBsL~ppt = 00 DUTUSSEND-DUPL CATE UNIT 333 XS 
DEVSACAVL = $00 DUTUSSETUP, DUAL PATH — ES ——— 
V = 00 TINIT eeeeeeet x 05 
DEVSA-DIR = 004 dll aed = 00000039 
DEVSM_EL = 009 Mai $305 +4 = 00000005 
DEVSA-1DV = 860 DYNSC"DDB 866 
eevee nee = 000 DYNEC-ORB = Sesntte 
DEVSACODY = 080 DYNSC UC 868 
— EMBSC"ACPTH 868668. 
DEVSM~SOD = 000 EMBSC~DU 88868 
Bæwt = oe EMBSC-INVATT = 20080004 
BEY = 33 pata = oontte 
DISCORNECT_REASON ° * 
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MSCPSW_MODIFIER ⸗ A PACKACK_OFFLINE 736 Q 03 
MSCPS$W_NOISEREC = § PACKACK-SUCC 719 R 5 
MSCPSW_SPEED = 1 RSTATION = oe 
MSCPSW_STATUS s A POTSC_ALLOCMSG z 14 
“UNIT 2 4 PDTSL_DEALRGMSG = 24 
SCPSW-UNT_FLGS = PDT$L_DGOVRHD ⸗ 9 
MSCPTOSPEEDS 9 445 R 05 TSL-MAPIRP = 00000034 
MSCPTOVMS _DENS 0000425 R 05 POTSL_MRESET ⸗ 998 070 
SCP_SRVR_NAM 0 198 R 05 PDTSL_MSTART = 00000074 
SG_BuF FAILURE 0000595 R 3 PDT$L_QUEUEDG = 0000003C 
RITSCHECK ACCESS eereeeee =X 5 PDTSL_RCHMSGBUF = 00000044 
MTSK_GCR 6 = 44 PHYIO VOLI 8885 R 05 
“NORMAL 11 = 00 ¢ PRS_IPL = 0000001 | 
MT$K_NRZI_800 = 0000000 PRP” STCON_MSG 0000288 R 05 
* = 00000004 RDSC_CORP = Wooæee 
MTSK-SPEED_DEF s 9000000 RECORN_ COMMON 0000063 R 05 
BOT = 00010000 RECORD_ COMMON 00007AA R 05 
MTSM_DENSITY = 00001F00 RECORD_GETUNIT_CHAR 00007A3 R 05 | 
MTSM_ENSEREXCP = 00000004 RECORD_ONLIN 86633 R 05 
MTSM_EOF = 00020000 RECORD_SETUNIT_CHAR 0000795 R 05 
MTSM_EOT = 00040000 RECORD-STCON O00002BF R 05 
MTSM_ = 00080000 RESTART_FIRST_CDRP QOOO0DCE R 05 | 
MTSM_LOST = 00100000 RESTART_NEXT_CORP Q0000E86 R 05 
MTSM_SEREXCP = 44 4 8 REWIND_ABORT 00000984 R 05 
MTSS_DENSITY = 00000005 REWIND_AVAIL 00000984 R 05 
MT$S_SPEED = 00000008 REWIND_CTRLERR 00000984 R 05 
MTS$V_BOT = 00000010 REWIND_ORVER 00000984 R 05 
MTSV_DENSITY = 00000008 REWIND_END 00000984 R 05 
MTSV_ENSEREXCP = 00000002 REWIND_FMTER 00000984 R 05 
MTSV_EOF = 00000011 REWIND_IVCMD 9000096A R 05 
MT$V_EOT = 00000012 REWIND_IVCMD_END 00000970 R 05 
MTSV_FORMAT = 00000004 REWIND_OF FLIRNE 00000984 R 05 | 
MTSV_HUL = 00000013 REWIND _PRESE 0000984 R 05 
MTS$V_LOST = 00000014 REWIND SUCC 0000974 R 05 
MT$V_SPEED = 9000018 SCS$ALCOC_RSPID aeeeeeee =X 05 
MT$V_SUP_GCR = Wobe SCSSCONNECT aeeeeeee =X = 05 
MT$V_SUP_NRZI = 00000015 SCSSDISCONNECT aeneeeee =X = 05 
i$v- SUP = 00000018 SCSSFIND_ROT aeneeeee =X 05 
NOP_AVA 0000683 R 05 SCS$LKP_RDTCDRP eeeeereer X= 05 | 
NOP~CTRLERR 868 R 05 SCSSLKP_RDTWAIT eeeeeeee = X = 05 
NOP" DRVERR 0000683 R 05 SCSSRECYL_RSPID eeneeere = X = 05 
NOP” IVCMD 8 R 8 SCSSUNSTACLUCB eeeeeree =X = 05 
NOP" IVCMD_END 0000681 R 5 SENSEMODE _ONL INE Q0000B7E R 05 
NOP~OF FLIRE 860 R 8 SENSEMODE RETURN 9000886 a 93 
NOP™ SUCC 68 R 5 SETMODE _ABORT A 3 8 5 
NORMAL_TRANSFEREND OOOOC9F R 05 SETMODE-BEGIN_IVCMD 86 R 05 
ORBS$B_FLAGS s SE TMODE- CANCEL QOOO0A9A R 05 
ORBS$B_TY * A SETMODE-CTRLERR 38 Age R 9 
ORBSC"LENGTH s SETMODE-DRVERR A 3 a 5 
“OWNER = 9 SETMODE—I1VCMD 0000840 R 05 
ORBSM_PROT_16 s . SETMODE-IVCMD_END 00B46 R 05 
“PROT * 18 SE TMODE OF FLIRE ABE R 05 
8 ZE = 908 SE TMODE— ONL INE 8 AID R 05 
PACKACK_CANCEL FR 5 SE TRODE RETURN 4D R 5 
PACKACK-GTUNT_SUCC 748 R 5 SE TMODE - SUC 9 4A R 5 | 
PACKACK_IVCMD 8 752 R 2 SET CLEAR Spx 000046A R 5 
PACKACK~ IVCMD_END 758 R SGNSGL_VMSD aenetere xX 5 
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Symbol table . 


UCBSL_TU_ MAXWRCNT 0 | 
UCBSN~BST = 
UCBSM~MSCP_INITING > 2 
UCBSM~MSCP—WAI TBMP : é 
UCBSM"MSCP _ 6 | 
UCBSM~ONLI 2 1 
UCBSM~TU_SEQNOP 2 4 
UCBSM-VACID : 0 
CBSQ"UNIT_ID 2 cc 
UCBSV~BSY = 00 
UCBSV"MSCP_WAI TBMP = 0000000A 
UCBSV-MSCP~WRTP = D 
BSV~TU_SEQNOP 2 
CBSV = 0000000 
= 0000004 | 
CBSu = 0000006 
= 90000004 
= 00000056 | 
= 00000008 
= 00000064 | 
000000F0 
000000F 4 | 
000000 3 
= 000000E | 
90001019 R 5 | 
000078E R 05 
= 0000000¢ 
o0040¢ R 5 | 
0000578 R 8 
00008F8 R 8 
000088 R 05 
00008F8 R 8 
QO0008FB R 05 
0000088 R 05 
00000908 R 8 
000008F8 R 05 | 
OO0BEA R 8 
Q0008F R05 
00008F8 R 5 
000919 R 05 
000088 R 05 | 
00008F8 R 8 | 
0000898 R 8 | 
00000C3A R «OOS | 
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! Psect synopsis ! 


poe weneome nee cs en} 


PSECT name Allocation PSECT No. Attributes 
. ABS . 0000000 6 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL oe NOEXE NORD NOWRT NOVEC BYTE 
SABSS OOOO1F8 ¢ 504.) O1¢ #41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$200_TEMPLATE_UCB_01 00 it ( 343 33 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$$$ TEMPLATE _ ORB “01 5 ( § .) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
+333 $199.6 ROL O6U e~ 8 ( 1351.) Q4 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
aoe 1 ( 46249.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE’ AD WRT NOVEC LONG 

$3560 BuTU pA TA_01 0000004 4.) $ ( 33 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$e 0 ~DEVITPE TABLE _01 00000019 ¢ 25.) ( -) NOPIC USR CON’ REL LCL NOSHR EXE RD WRT NOVEC BYTE 

¢ meme neecnanoceoe —22— + 
! \ Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.04 00:00:01 .28 
Command processing 109 sb Sha Sd i Be 
Pass 1050 00:00:43.71 00:02:52.53 
—e* table sort 0 BF 03-78 00:00:11.25 
s2 411 0:00:10.19 00:00:37.49 

Syabot table output 1 —8838:8 00:00:02.65 
Psect synopsis output 0 88:60:00.5 88:80:00 8) 
Cross-reference output ? 0:00:00.00 0:00:00.00 
Assembler run totals 160 00:00:58.62 00:03:48.10 


The working set_Limit was 3000 pages. 

3225350 bytes (630 pages) of virtual memory were used to buf ter the intermediate code. 

yoere were 190 pages of symbol table space allocated to hold 3488 non-local and 113 local symbols. 
4539 source Lines were read in Pass 1, — me 42 object records in Pass 2. 

97 pages of virtual memory were used to define 89 macros. 
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; Macro Library statistics ; 


Macro Library name Macros defined 
5SSDUA peen vee St ret et -MLB;1 16 
Ss2cgnuA 1 50 

ESYSLIBISTARLET. MLB;2 12 

+3558 vatt: Libraries) 78 


3948 GETS were required to define 78 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: TUDRIVER/OBJ=O0BJ$: TUDRIVER MSRC$: TUDRIVER/UPDATE=(ENH$: TUDRIVER) +EXECML$/LIB+L 1B$:DUTULIB/LIB 


au 


PMENT CORPORATION 
AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


Bos 


